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King of the 
mountain! 


Workhorse solutions 
for tough questions. 

When Southern Solutions acquired the exclusive marketing 
rights for the CMS Accounting System, the first (and the best) 
accounting system for the Commodore computer, we offered 
dealers who were dissatisfied with their current accounting 
software the opportunity to swap ... ours for anyone elses. 

WOW! We were covered with the others ... MAS. 8PI, 
EBS. etc ... all trading for CMS. We provide the only 
complete coverage of real software for Commodore 
computers: 

THE PREMIER ... SYSTEM IV. Rea 
accounting. More like a mini, yet priced for the 
Commodore. SuperMath 1 " gives precision to 
$1 billion. No one else comes close, 
General ledger accounts receivable, 
accounts payable, payroll, inventory, 
mailing list Plus important vertical 
products: oil accounting, pharmacy 
management encumbrance 
accounting, church records and 
more. 

THE STANDARD... 
SYSTEM 111. Similar to 
System IV but lower priced. 
QL A/R, A/R P/R. mailing list 


Peripherals. Monitors, monitor 
cables, blank cassettes. 

All software has FileGuard™. Never 
lose data files, EVEN IF YOU LOSE 
ELECTRICITY! Compatible with almost any 
computer; disk drive and printer 
combination. User-definable reports. Fast 
file access. 

Sold only through professional 
computer dealers. 

To become a Southern Solutions 
dealer or for the name of your nearest 
retailer call or write our General 
Manager Bill Swingler. 

Dealer Hotline: 1 -800-527-4548 


'Commodore 64 is 3 registered 
trademark of Commodore 



Available in Canada through 
Canadian Micro Distributors Ltd. 
500 Steeles Avenue 
Milton, Ontario, Canada L9T 3P7 


SfMherfi 
Soiumms 

PO. Box P, M c Kitmey, Texas j$o6() - (214) 542-027S 


Don't let price get in the way 
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Adding a printer to your computer makes 
sense. But deciding which printer to add can be 
tricky. Do you settle for a printer with limited 
functions and an inexpensive price tag or buy a 
more versatile printer that costs more than your 
computer? Neither choice makes sense. 

Here's a refreshing option— the new, compact 
STX-80 printer from Star Micronics. It's the under 
$200 printer that's whisper-quiet, prints 60 cps 
and is ready to run with most popular personal 
computers. 

The STX-80 has deluxe features you would 


expect in higher priced models. It prints a full 80 
columns of crisp, attractive characters with true 
descenders, foreign language characters and 
special symbols. It offers both finely detailed dot- 
addressable graphics and block graphics. 

And, of course, the STX-80 comes with Star 
Micronics' 180 day warranty (90 days on the 
print element). 

The STX-80 thermal printer from Star 
Micronics. It combines high performance with 
l a very low price. So now, there is nothing in 
the way of owning a quality printer. 


'Manufacturer's suggested retail price. 



mic ron ic i • i nc 

THE POWER BEHIND THE PRINTED WORD. 

Computer Peripherals Division, 1120 Empire Central Place, 
Suite 216. Dallas, TX 75247 (214) B31-B560 





The newSTX-80 printer 
for only $199f 
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34 How Can Computers Help Your Business? 

by Diane LeBold 

Above all a computer saves you time — time you can then devote 
to going after new clients or revving up your sales people. But you 
have to choose your software and your system wisely. Our chart of 
business software will help you do that. 

41 A Tale of Two Businesses by Diane LeBold 

Two very different businesses have one thing in common — a 
Commodore computer that has freed them from mountains of 
paperwork and given them time to expand. 

46 Cash Register Programs for the Hard Goods Retailer 

by Don Hassler 

Software that keeps track of retail sales, calculates sales people's 
commissions, and coordinates payroll and inventory helps this 
business run more smoothly. 

50 Telecommunications Gives Business an Important Edge 

by Walt Kutz 

In an age when "next morning" information is already too late, 
how do you stay on top of the rapid changes in the marketplace? 
Forget about waiting for the mail or the newspaper. Telecommu- 
nications via computer and modem gives you instant access to 
what you need to know. 

52 Stock Market Simulation Program by Jim Gracely 
What happens to the price of Fram Bicycle stock if the Oliv Oil 
Company raises its prices? Can you make money on Jim's 
Commodore Stock Exchange? 


Cash Register Programs 


departments 


li 


Editor's Notes 

This issue we start using a new format for printing program listings that 
should make our readers much happier. 


Letters 

Our readers offer opinions and advice. 
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10 Commodore News 

Commodore's Computer Challenge Sparks High Interest at 1983 
Olympics of the Mind by Mark Odgers 

The first computer problem ever offered by the Olympics of the Mind tests 

youngsters' programming creativity. 

14 The Arts 

Advanced Bit-Mapped Graphics on the Commodore 64 Part 2 

by Frank Co vitz 

Frank concludes his two-part series by showing you how to create a 
graphics language that you can then use to program very fancy high-res 
graphics for your 64. 


81 Education 

Color Me Purple ... or Red ... or Green by Doris Dickenson 
Computer Teaches Fifth Graders Elementary Economics 

by Larry Modrell 
Preschoolers at the Computer by Alexandra Muller 

90 Programmer's Tips 

Fill i n the B I anks by Allen Patterson 

95 Technical 

PETSp eed Tips by Joe Rotello 

Calling on LOGO and EXP() by CD. Lane 

Getting the Most Out of (And Into) Your Disk Drive, Part 3 

by John Heilbom 

106 User Departments 
PET/CBM 

PET Bits by Elizabeth Deal 
Loading Commodore 64 Programs Into the PET 
Commodore 64 

Software Keyboard Conversion for the Commodore 64 

by Gregory Yob 

House Inventory for the Commodore 64 by Robert W. Baker 

118 Commodore User Groups 
User Group Listing 

User groups across the nation and around the world. 
User Bulletin Board 

If you need to get a message out to our groups, this is where you 
can put it, 

124 ThatDoesNotCompute 

If we make a mistake, we fix it here. 

126 New Products 

What's new from independent manufacturers. 
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The Best is Yet to Come! Watch for These Issues! 


Power/Play Fall: Our 
Adventure Game Special, featuring 
the sophisticated Zork games and 
Scott Adams graphic adventures for 
the Commodore 64. We'll be out 
there with this exciting issue in mid- 
September. 


Commodore Issue 26: 
Software, software and more soft- 
ware. Commodore's new Software 
Division is off to a terrific start. Find 
out what they're up to in this issue, 
on the stands in early October. 


We Need Articles About 
Commodore CBM 
8032/8096 Systems! 

If you're using or programming 
our 8032 computers and have some 
information to share, let us know and 
we'll send you our Guidelines 
for Writers. Send your request to: 
Commodore Magazine, 1200 Wilson 
Drive, West Chester, PA 19380, 
Attention Guidelines for Writers. 

Advertising Policy 

Advertisements within this maga- 


zine are presented for the information 
of our readers. Acceptance of any ad 
does not constitute an endorsement 
by Commodore Business Machines. 
We stand by only those products 
manufactured by us. In addition, 
products displaying the "Commodore 
Approved" logo have been tested by 
Commodore. 

If any product advertised herein 
fails to perform as advertised, or you 
are unable to resolve a problem with 
an advertiser, please bring the matter 
to our attention. Write to Commodore 
Publishing Group, 1200 Wilson Drive, 
WestChester, PA 19380. 
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FIVE POWERFUL SOFTWARE 
DEVELOPMENT TOOLS 

Plus Zk Suiting fiw Hook 

INSIDE THE COMMODORE 64" 


THE BOOK 

A complete clear explanation Pf machine 
language, Assembly language, Commodore 64 
architecture, graphics, joystick and sound effect 
programming. Detailed atep-by-sta-p guide to the 
use of the development tools. Mow to combine 
Basic and machine language, make auto-start 
cartridges, interface with the internal ROM- 
based programs of BASIC and the Kernak 
Sample programs fully explained. 


THE TOOLS 

Assembler, Ed iter /Loaded Decoder, Monitor 
Full-featured Assembler allows use of labels, 
comments and arithmetic expressions to create 
machine language programs. Create, save, 
modify Assembly language programs with the 
Editor. Load and link machine language modules 
with the Loader Decode machine language back 
into assembly language for study or input lo the 
Editor. Single-step program execution with the 
Monitor Combines Assembler/Editor for maxi- 
mum ease of use. 


ALL FOR $54.95 PLUS $2.00 POSTAGE AND HANDLING Add S5.00 for disk version. 
Send check, M.Q.. VISA/MC ($2.00 S.C.J or specify C.O.D. (add $3.00) to: 
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P.O. Box 207, Cannon Falls, MN 55009 
507-263-4821 

Commodore 64"* is a reginrrrd TM of 
Commodore Busmen M.Khinri In; 
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FOR YOUR COMMODORE WORDPROCESSING NEEDS 

INVEST IN THE BEST 



ifes 
oftware 


Sessional 




oftware 


WordPro * 
PLUS 




WORDPRO PLUS. IN A CLASS BY ITSELF. 


When choosing a Word Processor lor your Commodore'" computer, there's 
no reason to settle for anything but the best — in a word. . .WordPro" 

With over 30.000 happy clients churning out letters and documents all over 
the world, the WordPro Plus'" Series is unquestionably the #1 selling soft- 
ware package on Commodore computers! So when you choose WordPro 
you know you're investing in a trial-tested program that'sa real winner. And 
WordPro is NOW available for your Commodore 64" computer— at prices 
starting as low as S89.95. 

Designed for the user who has no computer or word processing experience 
whatsoever, WordPro Plus brings a new dimension to the term "user- 
friendly." More than just easy to use, WordPro will turn your Commodore 
computer into a sophisticated time saving word processing tool — loaded 
with the same inventory of features found in systems costing much, much 
more. 

Our nationwide team of over 600 Professional Software/Commodore com- 
puter dealers will help you choose the WordPro Plus system that is best for 
your needs. Our full-service dealers have been set up to provide strong 
customer support. In addition to helping you choose the right system, many 
Professional Software dealers also offer WordPro Pius training and system 
installation. 

Professional Software offers a complete spectrum of WordPro word process- 
ing software for Commodore computers ranging Irom the Commodore 64 to 
the more business oriented 8000/9000 series computers. And WordPro 4 
Pius and 5 Plus also interact with our database management systems includ- 
ing InfoPro and The Administrator So whatever your Word Processing 
needs, there's a WordPro system that's right for you. 


WordPro'" and WordPro Plus'" are trademarks of Professional Software Inc 
The WordPro Plus Series was designed ano written by Steve Punter of Pro Micro Software Ltd 
Commodore" and tne Commodore 64" are trademarks ot Commodore Electronics. Inc 
Dealer inquiries invited. 


WordPro 3 Pll)i/64 



Invest in the best. . . 

WordPro Plus. In a class by itself. 

Call us today for the name of the WordPro Plus dealer nearest you. 

Professional Software Inc. 


51 Fremont Street 
Needham, MA 02194 


(617)444-5224 
Telex: 951579 


editor's notes 



For those readers who have had 
a hard time reading our dot matrix 
program listings. GOOD NEWS! 
With this issue we begin using a 
new system. First, listings are now 
run off on a letter-quality printer. 
That in itself should help a lot. 
But the best part is that, instead 
of marginally readable graphic 
characters, you'll find WORDS 
(very readable words) in brackets. 
Just press the keys indicated by 
the bracketed words. You'll get 
the appropriate character on your 
screen and much-improved re- 
sults when you run the program. 
These are the translations: 

[HOME]= CLR/HOME 
[CLEAR] = SHIFT CLR/HOME 
[DOWN]= CURSOR DOWN 
[UP]= CURSOR UP 
[RIGHT] = CURSOR RIGHT 
[LEFT]= CURSOR LEFT 
[RVS]= REVERSE ON 
[RVOFF]= REVERSE OFF 

If you're convinced we're a 
bunch of sadists for ever having 
run dot matrix in the first place, I'd 
like to offer an explanation. The 
only reliable program listing is one 
that comes right off a tape or disk 
we know runs. Before we got our 
hands on Jim Butterfield's transla- 
tion program the only way to print 
a hot-off-the-disk listing and still 
get those graphic characters was to 
use a dot matrix printer. The alter- 
native was to typeset the programs 
and draw each character in. Talk 
about mistakes — let me tell you, 


that would have been a disaster! 
So, we chose the lesser of the 
two evils. 

Now on to computers in busi- 
ness — our theme this issue. I 
thought I'd say a few things about 
Commodore's new "B" series 
advanced business computers — 
another of our products that is 
simply going to blow away the 
competition. It's going to be very 
hard for anyone to come up with 
anything close for the money: 
a big 128K or 256K RAM, 80- 
column screen and the capability 
to run not just CP/M, but MS DOS 
and CC-CFVM86 as well. Not to 
mention the tilt-swivel monitor, 
classy looking case, comfortable 
keyboard, numeric keypad and 
built-in music synthesizer. All for a 
suggested retail price that makes 
the competition look pretty silly. If 
you find a better deal (through 
legitimate channels) let me know. 

We got such a good response to 
the list of educational software we 
ran in the May issue (Volume 4, 
Number 2) we thought it would 
help our business users to run 
a list of business software in this 
issue. Finding really comprehen- 
sive lists of software for any given 
computer is a hard task, which 
Commodore has tried to make 
a little easier by publishing the 
Commodore Software Encyclo- 
pedia. The list of business software 
we're running in this issue, I have 
to admit, was taken (in extremely 
condensed form) from entries in 
the newest edition of the Software 
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Encyclopedia, which should be 
available at your Commodore 
dealer soon, if not right now. If 
you'd like more detailed explana- 
tions of the programs we've in- 
cluded in our chart in this issue, 
you'll find them in the Software 
Encyclopedia. 

You'll also notice that we're 
looking for more articles about 
using and/or programming our 
CBM 8032 systems. Several 8032 
users have asked us for more input, 
and we'd like to oblige. If you've 
got some information that would 
be of use to our CBM audience, 
write (or call) and we'll send you 
our Guidelines for Writers. 

We'd also like to run occasional 
cartoons, so if you create your own, 
we'll be glad to take a look at them. 
Send us copies (not originals) 
for approval and if we like them 
we'll ask you for the originals so 
we can reproduce them. 

Next issue we'll be featuring 
new developments from Commo- 
dore's Software Division. They're 
working on some very hot items, 
especially for the Commodore 64, 
that will amaze and delight you. 
See you then. C 

— Diane LeBold 
Editor 
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tired of software that doesn't work? 

reach up 
& turn over 
to... 


All New Leaf Inc. products ore 
created with our special 
committment to quality . 
because we really care. Unlike 
most software, even novice 
computer users will be able to 
enjoy all of the benefits, without 
any of the hossles! 

DIORHYTHM+ 

aoisic Qiorfiythm wJib aodlo feedback 6 
comparability campartjons Plus oure 
will give you the option of a priced 

chart * 
Cassette only 14.50 


C*A*R*S 


fCcr Ariaiysis Reporting System) Gfoph & 
moniroc operating efficiency & COM of 
ownership including car insurance 
payments, laxes & license fees as well 
oj repairs It distinguishes between 
operating {j ownership costs Agam ours 
will o/ve ycu the option of pnnied reports * 

Cassette version 24,50 

Dish version 27.50 


€SP-Cak 


(Electronic Spreadsheet Planning 
Calculator) 

Now you con calculate any spreadsheet 
easier* Rows and columns ore limited only by 
your machine's memory. An excellent 
tool for plohning Odd repetitive 
calculations You con even moke 
printed copies or your spreadsheets • 

Cossette version 4j.50 

Disk version 47.50 
"On any Commodore* compoiiole printer 

Each of our programs has 
been tested and re-tested 
over ond over again. Our 
national testing network 
eliminates any problems 
BEFORE they reach you. 
Simply type Load 6 New 
Leafs'" unique Self-starting 
format will do the rest. 

Mascercovd and 
VISA customers, 
please add 3% 




Product ordered 

□ V1C-20® O Commodore 64 s 

□ Disk D Cossette 
Amount enclosed . 
Nome 


2iP- 


State_ 

Phone Number ( ) 
MC or VISA # 


Expiration date _ 

Interbank # CMC) 

Missouri residents add sales tax 

l20Lynnhoven» Belleville. IL 62223 


COMMODORE: THE MICROCOMPUTER MAGAZINE Issue 25 7 


COMMODORE 64~ 

American Peripherals 


GAMES 

(on tape) 

646 Pacacuda 19.95 

650 Logger 19.95 

651 Ape Craze 19.95 

652 Centropod 19.95 

653 Escape 19.95 

641 Monopoly 19.95 

642 Adventure #1 19.95 
648 Galactic Encounter 9. 
667 Yahtzee 14.95 

671 Robot Blast 14.95 
673 Moon Lander 14.95 
676 Othello 14.95 

686 Horserace-64 14.95 

692 Snake 14.95 

697 Football 14.95 

819 Backgammon 24.95 

822 Space Raider 19.95 
846 Annihilator 19.95 
842 Zwark 19.95 

8- r /**__. _ n-.uL.__., An nc 

HD UldVC nuuucis Ij.CJj 

841 Pirate Inn Adv. 22.95 

904 Shooting Gallery 14.95 

816 Dog Fight 19.95 

817 Mouse Maze 19.95 

818 Ski Run 22. 

820 Metro 22. 

823 Sub Warfare 29. 

838 Retroball 39.95 
(cartridge) 

839 Gridrunner 39.95 
(cartridge) 

825 Mine Field 13, 

672 Dragster 14.95 
662 Oregon Trail 14.95 
679 3-DTicTacToe 14.95 
655 Castle Advent. 14.95 


EDUCATIONAL 

(on tape) 

644 Type Tutor 19.95 

645 Assembly Language 
Tutor 14.95 

687 Fractional Parts 14.95 
902 Estimating Fractions 14.95 

695 Tutor Math 14.95 

870 Square Root Trainer 14.95 

699 Counting Shapes 14.95 

694 Money Addition 14.95 

689 Math Dice 14.95 
678 Speed Read 14.95 

643 Maps and Capitals 19.95 

645 Sprite Editor 19.95 

904 Sound Synthesizer Tutor 19. 

696 Diagramming 
Sentences 14.95 

690 More/Less 14.95 

688 Batting AVERAGES 14.95 
802 TicTacMath 16.95 

904 Balancing Equations 14.95 

905 Missing Letter 14.95 
864 Gradebook 15. 

810 French 1-4 80. 

811 Spanish 1-4 80. 

807 English Invaders 16.95 

809 Munchword 16.95 

812 Puss IN Boot 20. 

813 Word Factory 20. 
660 Hang-Spell 14.95 

905 Division Drill 14.95 

906 Multiplic. Drili 14.95 

907 Addition Drill 14.95 

908 Subtraction Drill 14.95 

910 Simon Says 14.95 

911 Adding Fractions 14.95 

912 Punctuation 14.95 


EDUCATIONAL 

Series on disk 

Computer Science (30 programs) $350 
HS Biology (70 programs) S500 
HS Chemistry (40 programs) $450 
HS Physics (60 programs) $475 
HS SAT Drill (60 programs) $99. 
Elem. Social Studies (18 pr.) $225 
Elem. Science (18 programs) $225 
Elem, Library Science (12 pr.) $170 
Librarians Package (4 utilities) $110 
3rd Grade Reading (20 lessons) $99. 
4th Grade Reading (20 lessons) $99. 
5th Grade Reading (20 lessons) $99. 
6th Grade Reading (20 lessons) S99. 
Spanish Teaching (12 lessons) $95. 
PARTS OF SPEECH (9 lessons) $95. 


BUSINESS 

(all on disk) 
WORD PRO 3+ 95.00 
DATAMAN-64 data base program. 49.95 
PERSONAL FILING SYSTEM 
(index card style) 19.95 
HOME FINANCE 19.95 
CYBER FARMER $195. 
GA 1600 Accounting System 395. 
PERSONAL TAX 80. 
ACCOUNTS RECEIVABLE 22. 
New York State Payroll 89. 
MAILING LIST 24. 
Manufacturing Inventory 59. 
Stock Market Package 39. 
Finance 16.95 

Visa — Mastercharge — C.O.D. 


ORDERING BLANK 

To: American Peripherals 
1 22 Bangor Street 
Lindenhurst, NY 11757 

Ship to: Name 

Street 

Town, State, ZIP 


ITEM 


DESCRIPTION 


PRICE 


□ Please send your complete 64K catalog. 


LoT.m_x.-oi_ M 1 ™ li J regJil-Trd TM at 
Ccnmodo-r Builnai- M_Kih(nrl Inc. 


NY State Residents 
only add 7 1 /4% tax 

Shipping 
(If COD, add 1.50) 

TOTAL AMOUNT 


51.50 


If Canada or Mexico, add an additional $2.00 
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"Modern" Computer Languages 
Missing the Point? 

To the Editors: 

Even though I have taught computer science in 
various schools for ten years, I still seem to know 
little that is of use today. My field is applications 
programming and languages. I have often taught 
"introduction to programming" courses, showing 
students how to write programs in a variety of lan- 
guages, including FORTRAN, BASIC, COBOL, 
ALGOL, LISP, SNOBOL and APL, and have taught 
machine language and assembly language, too. 
Now we have FORTH, C, COMAL, PILOT and 
LOGO — and so on, virtually ad infinitum. It's a bit 
like fashions in clothing. 

As with languages, so with "programming style". 
There is a school of thought that, no matter how 
remarkable and powerful the program, if it is not 
written according to the style set up by Edsger 
W. Dijkstra of Bunoughs, with no unconditional 
GOTO's, it may as well be burned — a recommen- 
dation Dijkstra has seriously advanced with respect 
to the language PL/1- 

The point of this is to ask if we are not, in all of this 
concern about what is "modern and fashionable", 
rather missing the point of what our science is all 
about. Byzantine civilization sank into pedantry be- 
cause it placed form and uniformity of style before 
everything else. I think the same thing is happening 
to computer science. It began as a brilliant labor- 
saving device, a practical disclosure of what is really 
going on in mathematical operations, but now is 
decaying into arguments about unconditional 
GOTO statements, linguistic subtleties and other 
matters totally divorced from usage. Along with 
this is the tendency to continually change opera- 
ting systems so that no one can gain any confi- 
dence in his ability to use the machines for really 
significant applications. 

I think this obsession with machines, with lan- 
guages, with style, with fine points and with every- 
thing detracting from a transparent symbology 


which is servant to the solution of profound prob- 
lems is a degeneration of the point of computer sci- 
ence. A generation of in-grown specialists who can 
interface bed pans and feather dusters with obscure 
operating systems is not my conception of compe- 
tent computer scientists. I have had the opportunity 
of direct contact with the creators of these unfortu- 
nate fashions and am not impressed. 

Let's get back to scientific, artistic and mathemat- 
ical applications. The best kind of computer is one 
that you don't even know is there — one that be- 
comes a part of you — not a temperamental pile 
of crap accompanied by twelve volumes of jargon. 
Yes, I am a PET owner and user and I love your 
product. Don't be baited into the big computer 
mode. I use that stuff, too. I know. It is a stack of 
needless sophistry and mysticism. C 

Sincerely, 

Dr. George Robert Talbott 
Chief Computer Scientist 
Specialised Software 
Wilmot, Wisconsin 

Our PETs Have More Bytes Than Barks! 



Mandu, the pet of Linda Martin Srfyeu from Watsonville, California, 
showed up at school one day to pose, flanked by Linda's other favorite 
classroom PETs. 
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Commodore's Computer Challenge 

Sparks High Interest at 1983 

Olympics of the Mind 


by Mark Odgers 

Commodore Customer Support Representative 


The Olympics of the Mind was created in 
1978 by New Jersey educators Theodore 
Gourley and Samuel Micklus to foster the 
development of students' creative and 
intellectual abilities. Since then it has 
challenged thousands of students each 
year to solve problems that force them to 
think originally and creatively. 

In this article Mark Odgers, who 
created the first computer problem for 
the Olympics on behalf of Commodore, 
explains the problem and presents the 
winning solutions. 


The Olympics of the Mind World Finals were held 
on the campus of Central Michigan University in Mt. 
Pleasant, Michigan, on May 26 and 27, 1983. This 
annual event was the culmination of nine months 
of competition which challenged the creativity of 
students from kindergarten through grade 12 and 
for the first time included a computer problem for 
the youngsters to solve. 

The computer problem was sponsored exclu- 
sively by Commodore. Commodore's sponsorship 
included designing the problem and supplying the 
equipment (twenty VIC 20 systems) at the World 
Finals so the students could compete. Commodore 
also sent three representatives to the Finals: Dan 
Kunz from the education department, Pat McAllister 
from software and myself. Our group administered 
and scored the computer event. In addition, we set 
up the equipment, provided technical assistance 


and also provided software for scoring the other 
Olympics of the Mind events. The scoring was done 
on two CBM 8032 systems using 8050 disk drives 
and 8023 printers. 

The Problem 

The problem, titled "Black Box", was designed 
to challenge the Olympians' creativity on a micro- 
computer It called for the teams to create a program 
that would reproduce on the video screen this or a 
similar "balancing diamond" partem: 


Olympics of the Mind 


o 

X 

X 

X X X 

X X 

X X 

0X000 

o x x n o x 

X X 

X X X 



X 

X 





X 

X X 

X X 


The most important component of each team's 
program was that it not only print the balancing 
diamond, but that it also be able to handle any 
random order of x's and o's. The teams saw only 
samples and received a totally new pattern of x's 
and o's on the day of the World Finals. 

Seems fairly simple, doesn't it? Well, it would be 
if that were all there was to it. However, like all the 


I 


ft. 
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other Olympics of the Minds problems, the problem 
had limitations written in that made it necessary for 
the teams to be creative in order to both solve the 
problem and receive a competitive score. 

Specifically, the limitations were: 1) The program 
had to be in BASIC. 2) The only BASIC statements 
that could be used were PRINT, LET, DIM INPUT 
FOR. . . NEXT, READ, DATA, GOTO, GOSUB, 
RETURN and IF. . . THEN. 3) The only special 
characters allowed were plus sign, minus sign, 
asterisk, slash, equal sign, opening and closing 
parentheses, dollar sign, quotation marks, greater- 
and less-than symbols and commas. Colons were 
not allowed. 4) The only variable data in the pro- 
gram had to be input using the INPUT statement. 
The data could not be inserted into the program 
itself. The variable data was limited to six pairs of 
two characters each. (Note: Division I, grades K-5, 
was allowed 60 one-character inputs.) The only 
allowable data characters were A-Z and 0-9. There 
were no exceptions. If it was not specified in the 
limitations, it could not be used. 

The limits written into the Black Box problem 
had three purposes: 1) To make the competition 
equal (no particular advantage could be gained by 
developing the program on different computers 
with different capabilities. 2) To assure a team's pro- 
gram would work on the computer provided by the 
tournament directors (VIC 20's). 3) Lastly, and most 
importantly, to test programming creativity and make 
it necessary to program the computer step-by-step 
without being able to take advantage of the special 
shortcut instructions built into the machine. 

Scoring 

Scoring was based on the following criteria. The 
lowest score wins. 


-Time of operating measured 
from starting signal to handing 
in result sheet and tape. 

-Number of lines 
in program 

-Characters not missing 10 points for each 

or wrong but out character out of format 

of format. 


1 point 
per second 

10 points per line 


-Number of characters 
wrong. 

-A character is missing 
from pattern. 

-Using a BASIC statement 
which is not allowed 
(see limitations section). 


5 points per 
wrong character 

10 points for each 
missing character 

250 points for each 
illegal statement 


— Using a character in the 250 points for each 

program which is not illegal character 

allowed (see limitations section). 

— Using a character in your 250 points for each 

inputs which is not illegal character 

allowed (see limitations section). 

The Winners 

Over 200 schools representing the United States 
and Canada participated in the overall World Finals 
competition. They had arrived at the World Finals 
by winning state and regional competitions. Of the 
200 schools entered, 86 participated in the Commo- 
dore computer problem. As in all Olympics of the 
Mind events, the Olympians were classified into 
three divisions: Division I represented kindergarten 
through grade 5, Division II grades 6 through 9 and 
Division III grades 10 through 12. 
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A Bi-Monthly Journal of Notes, 
Reviews and Articles 
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Users" of Commodore Brand Computers 

EDITORS: Jim and Ellen Strasma 

S20 US / YEAR 

Sample Issue free on request, from; 

635 MAPLE, MT. ZION, IL 62549 USA 

217/864-5320 


LEROY'S CHEATSHEET 
KEYBOARD OVERLAYS 
FOR YOUR VIC -20 M 




11=5 


AT LAST! The information you need, at your fingertips, without going 
back to the manual No need to memorize commands. These 
durable plastic coated overlays are designed for use by first time 
users, amateur enthusiasts. and trained professionals. Each overlay 
contains program starling locations, (unction key labeling, commands 
and warnings in bold letters, and additional helpful aids in center 

cu,out - DONT DELAY -MAIL TODAY 
gtE 

Please send me the following U.'roy's Cheatsheet keyboard overlays 
n Programmers Aid* □ Graphic Primer (1515 & 15251' 

□ Vicmorr □ UMl Wordcrnfl 20'^JVSA"! 

Q Super Expander' □ HES Writer ' _3r * lV Q6 c 


O Vic Typewriter' 
□ Victerm I' 


□ HES Vic Forth' 


Send check or money order plus S2.00 (postage and handling) 
PA residents add 6 X sales fax. 


CHEATSHEET PRODUCTS" 

P.O. Box 8299 Pittsburgh PA. 15218 


I III 


Congratulations to the fifteen winning entrants: 


Division I: 41 teams participating 


1st Harry Spence School 

Wisconsin 

259 points 

2nd Canaan School 

New Hampshire 


2nd (Be 1 Cherry Hill School 

New Jersey 


3rd Weston School 

Connecticut 


4th Hoover School 

Oregon 


Division II: 29 teams participating 


1st Alice Bimey School 

South Carolina 

402 points 

2nd Canaan School 

New Hampshire 


3rd Jefferson School 

Michigan 


4th Shepard School 

Washington, DC 


5th Hodgdon 

Maine 


Division III: 28 teams participating 


1 st Revere High School 

Ohio 

380 points 

2nd Alexander Graham Bell H.S. 

North Carolina 


3rd Fairview High School 

Colorado 


4th Clover Hill High School 

Virginia 


5th Wayne Central High School 

New York 



The winning solutions for Divisions I and 
III follow. 


Olympics of the Mind Winning Solutions 

Compare your solutions to those of our Division I 
and Division Iff first-place programs. 


Division I 

1 

DIH B$C18; 

2 

FOR J«lT0ie 

3 

READ B$CJ),X 

4 

FOR J1=1TQX 

5 

INPUT fl$ 

6 

B*<J)=BSCJ)+R*+" " 

7 

NEXT Jl 

S 

NEXT J 


Ik 
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9 FDR J=l TD 18 




10 PRINT BSCJ) 




11 NEXT J 




12 BRTR" M," 

ii <-) ii 

II Q II 

",4; 

6." %5;""/4 




13 DflTfl" %3," 

ii n ii 

ii i it 

ii 


II c ii ii C H II 7 n ■■ 

i J/ /Dj ,i r > ; 

'M * " Mi" 

",2," "/3/" ",4 

Division III 

18 DIM K49)/XC60^X$C60) 

15 FDR K=l TO 43 

20 ICK>=K 

30 NEXTK 

40 FOR K=l TD 6 

50 INPUT R 

110 FOR B=l TO 7 

115 Z*Z+1 

120 IFR/20KR^2^THENXC2>b1 

130 fl=KR/2> 

140 NEXTB 

145 Z«2+3 

150 NEXTK 

160 FORK*1TD60 

170 IFXCK)-1THEN185 

180 X$(K)*"0 " 

ie2 GOTD190 

185 X$(K)»"X " 

190 NEXTK 

200 PRINT" "X$a>" "X$(2)X$<3) 

220 PRINT" "Xf(4)XiC5)X$<;6)" "X$<7)X$<8>X$<9)X$<10> 

240 PRINT" M H*Cll)X$<12)X*C13)X*n4)X*C15) 

250 PRINT" "XS:C16)X$C17>X$a8)X$C19)X$C20)X$C21> 

260 PRINT" "X$(22)X$<23>X$C24)Xf(25>XfC26)X$C27>X$C28) 

270 PRINT" "X$C29)Xf<30)X$(3OXSC325X$C33)X$(34) 

280 PRINT" "X$C35)X$<36JX$C37?XfC38)XS<39> ,, "X$<48)X$C41 )XSC42> 

XSC43) 

300 PRINT" "XfC44)X*C45)XSC46>" "XS (47)X$<:43) 

320 PRINT" "X$C49>" "XfC50)" "X*< 

51? 

350 PRINT" "X$C52)X$<;53:>" "X$(54)X$(55)X$C5£0 

360 PRINT" "X$<57>X$C58)X*(59)X*<60) 


u- 
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Advanced Bit-Mapped Graphics 
on the Commodore 64 

Part 2 

by Frank Covitz 


Frank concludes his two-part series by 
showing you how to create a complete 
graphics language, using an assembler, 
that you can then use to program bit- 
mapped graphics on your Commodore 64. 
Part 1 appeared in Commodore, Issue 24. 

In the last installment we discussed the essential 
features of bit-mapped graphics on the Commodore 
64. We went over three steps in creating bit-mapped 
graphics using machine language. Now we get to 
step four — drawing the "best" straight line between 
two points. As I said last issue, the technique I'm 
going to use is not the easiest way, but it is one of 
the fastest, so it will be worth your time to try to 
understand it. 

Since we are going to use a bit of algebra, it may 
be time for you to break out your first-year math 
book. First, consider a Cartesian coordinate system, 
with an X-axis and a Y-axis (Figure 3). Imagine a 
straight line going in any direction, but starting at the 
origin and ending somewhere. Our algorithm needs 
to start a sort of graphic "cursor" at the origin and 


OUADRANT 

r 

■ 

QUADRANT 

a 
r 




QUADRANT 

2 

OUADRANT 
3 


figure out, in single pixel movements, how to 
"walk" it as closely as possible to that line, turning 
on pixels as we go. 

Note that, since the procedure will always take 
steps from where the "cursor" is to where it is going, 
we really could have started our line anywhere. To 
be more specific, our "cursor" is simply the byte 
address and bit data that goes with it. 

The routine we developed in Part 1, PXADDR, 
will give us this "cursor", if we start it off at the X,Y 
coordinate of the starting point for the line we want 
to draw. For bit-mapped graphics, PXADDR, is 
equivalent to a graphic MOVE command, since it 
gets us to X,Y without drawing. For the moment, 
we will leave aside the precise procedure for moving 
in pixel-sized steps, and just consider what types 
of moves to make to keep as close to the true line 
as possible. 

Now comes the kicker. I claim that for any given 
line, only two types of elementary moves are 
needed to do that "walk". To see this more clearly, 
divide up the coordinate system into eight octants 
by drawing two 45 degree diagonal lines through 
the origin, and at right angles to each other (Figure 



Figure 3. X.Y COORDINATE SYSTEM 


Figure 4. OCTANTS WITH ALLOWABLE 
MOVES 
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4). Just like the points of a compass, right? Any line 
has to fall entirely inside, or on, one of these octants. 
Let's number them 0-7 Oust like the bits in a byte . . . 
hmm!), with octants and 1 in the first quadrant, 
octants 2 and 3 in the second quadrant, etc. 

If the line happens to fall in octant 0, our steps will 
consist of either 1 pixel movements to the right (+X 
direction) or a combination of 1 pixel right and one 
pixel up (+X and +Y). In octant 1, the moves will 
be either right and up (+X+Y) or just up (+Y). 

Aha! If we just could figure out which octant our 
line is in, we would at least have restricted the possi- 
ble elementary moves to just two types. It's not too 
difficult if you think about it. First of all, instead of 
considering the two endpoints — call them XI, Yl 
and X2, Y2 — separately, what we need are their 
differences. (Remember, we've already taken care 
of getting to the starting point by calling PXADDR 
using X1.Y1). So, we first do dX = X2-X1 anddY 
= Y2-Y1. Next, take the absolute value of dX 
and dY. If ABS(dX) is greater than ABS(dY) the line 
must be in octants 0,3,4, or 7, right? 

We've now got two groups. If we're in the first 
group, is dX positive? If it is, the line must be in oc- 
tant or 7. Next, is dY positive? If it is, then we must 
be in octant 0. Three yes/no decisions are all we 
need. Here is a table of the three conditions needed 
to fix which octant the line must be in: 


Now for the algebra part. The equation for a 
straight line through the origin is just Y = mX, where 
m is the slope, OK? The slope, in turn, is just the 
ratio of the differences in the Y and X coordinate 
endpoints, i.e., m = dY/dX, and we can substitute 
this into the straight line equation to get Y = (dY/ 
dX) *X. Multiply both sides by dX to get dX*Y = 
dY*X. Next subtract dX*Y from both sides to get 
= dY*X - dX*Y Any specific point X1,Y1 must 
satisfy this equation If it is on the line. 

Now, suppose we see how far off we are if, start- 
ing from a point on the line, we move one unit in 
the +X direction. Since this new point is no longer 
exactly on the line (except if it is horizontal), the 
new term on the right-hand side will no longer 
exactly equal zero. Let the "error" be represented 
by the tetter "e". So we have for this new point, 
e = dY*(X+l)-dX*Y. 

Next, expand this to form e = dY*X + dY - 
dX*Y, and note that the right-hand side contains the 
term dY*X - dX*Y, which, by our previous equa- 
tion, was exactly equal to zero. So, we are left with 
simply e = dY 

By exactly the same reasoning, if we made a unit 
step in the + Y direction from a point on the line, we 
would have an error e = -dX. This is nice because, 
as you can see, a step in the +X direction contrib- 
utes a positive error and a step in the + Y direction 



is ABS (dX)> 



move 

Octant 

ABS(dY)? 

dX 

dY 

type 



+ 

+ 

+ 

+X.+X+Y 

1 

— 

+ 

+ 

+X+Y.+Y 

2 

— 

— 

+ 

+Y+Y-X 

3 

+ 

— 

+ 

+Y-X,-X 

4 

+ 

— 

— 

-X.-X-Y 

5 

— 

— 

— 

-X-Y.-Y 

6 

- 

+ 

— 

-Y,-Y+X 

7 

+ 

+ 

— 

-Y+X. + X 



Figure 5. EXAMPLE OF THE STRAIGHT-LINE ALGORITHM. 
LINE GOES FROM (X.Y) TO (X-40, Y<20) 
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contributes a negative error. In other words, errors 
caused by stepping in the +X direction can be re- 
duced by stepping in the +Y direction. We are done 
just after the total number of steps equals dX (since 
in octant every move will have a +X move in it). 
This will be obvious if you think about it. We are 
now in a position to state the straight line algorithm 
(at least for a line in octant 0; see Figure 5): 

Step 0. Start with X = 0, Y = 0, C = 

Step 1. Move one step in the +X direction, and let 
e = e+dY 

Step 2. If e is negative go to Step 3, else set 
e = e - dX and take one step in the 

+Y direction. 

Step 3. Turn on the pixel. 

Step 4. Let C = C+1 

Step 5. If C < or = dX go to Step 1; else we're done. 

By repeatedly checking the sign of e and taking 
the appropriate steps, we've managed to stay as 
close as possible to the desired line, without skip- 
ping any pixels, and by using just addition and sub- 
traction. Except we left out one important step — we 
didn't say what the initial value of e should be. At 
first thought you might think it obvious that e should 
start at zero, since we started at the exact X,Y co- 
ordinate of the line's starting point. However, on 
reflection, we can see that this isn't quite right by 
considering the following case. 

Imagine that we had a line in octant that was 
nearly horizontal; in other words dY is very small 
compared to dX. If e started off at zero, it would 
always be positive after the first pass in Step 1, so 
that the first "move" would always be a +X+Y 
type. If dY were to equal + 1 for example (a very 
nearly horizontal line), only one +X+Y step would 
be needed in drawing the entire line, and we cer- 
tainly shouldn't take this 4-X+Y step right away. 
Rather, as I think you can see, the single +X+Y step 
should be taken at the middle of the line. This situa- 
tion is correctly taken care of by starting with e = 
-dX/2, i.e., half the negative of dX. 

Although it may not be clear exactly how to do it, 

H 


I think you can see that it should be possible to set 
up the same type of algorithm for the other octants. 
It is just a matter of figuring out the sign of the cor- 
rection terms, and which type of move is involved in 
Step 1, and I won't go through the logic of it — I'm 
sure you've had enough math so far. The algorithm 
itself, by the way, is not specific to the Commodore 
64, and could be used for example in driving a digi- 
tal plotter, or even in directing a robot to go from 
"here" to "there". 

One more consideration must be taken care of 
before we can set down a program to implement the 
above straight line algorithm. What the straight line 
algorithm does is to decide on a step-by-step basis in 
what direction to make the next move. As we have 
seen, these moves can be any one of eight (the eight 
compass directions) and, for a given line, are one 
out of two possibilities. 

We will now take care of how to implement those 
elementary moves. First of all, you should realize 
that of the eight really only four are necessary — 
namely up, down, left, and right — since the diag- 
onal moves are made up of two of the latter. For 
example, to move northwest, we would move up 
then left. (Remember, the pixel won't actually be 
turned on until after the move is made). 

Keep in mind how memory is organized in the 
bit-map mode (remember the cursor placements 
we did earlier). The right/left step is perhaps the 
easiest to figure out BYTE is already set to the cor- 
rect bit-map address and BIT contains the power 
of two representing the current pixel position at 
byte. To move right, we need to go to the next lower 
power of two, and to go left, we need to go to the 
next higher power of two, right? So, to go right, we 
would do BIT = Bn/2 and to go left, we would do 
BIT = 2*BIT, OK? 

Now comes the fun part. What happens if BIT 
were equal to one and we wanted to go right? The 
pixel would sort of fail off the right edge and be 
lost forever unless we do something about it. This 
condition can be recognized by checking whether 
INT(BIT) = 0. The cure is simple; just add eight to 
the BYTE address, since we want to go to the same 
line of the next character cell, and set BIT = 128, 
i.e., the leftmost pixel in the new location. Con- 
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versely, if on trying to go left, BIT ends up > 128, 
we need to subtract eight from BYTE and set BIT 
= 1. The right/left subroutines are then, simply: 


2000 

REM MOVE 1 PIXEL RIGHT 

2010 

BIT - INT (BIT/2) : IF BIT = THEN BYTE = BYTE+8 :BIT=128 

2020 

RETURN 

2100 

REM MOVE 1 PIXEL LEFT 

2110 

BIT = 2*BIT:IF BIT > 128 THEN BYTE = BYTE-8:BIT=1 

2120 

RETURN 


It is just as simple or simpler in machine language: 
(Note that here I am using symbolic notation, in 
which BIT = S033F, BYTE = $FD and BYTE 
+ 1 = $FE) 


RIGHT 

LSR 

BIT 

;shift 1 bit to the right 


BCC 

RDONE 

;if carry clear, we're done 


ROR 

BIT 

;this sets BIT = $80 and clears the carry flag 


LDA 

BYTE 

;add 8 to BYTE 


ADC 

#8 



ST A 

BYTE 

;take care of low part 


BCC 

RDONE 

;done if carry clear 


INC 

BYTE+1 

;else add 1 to high byte 

RDONE 

RTS 


;we're done 

LEFT 

ASL 

BIT 

;shift 1 bit to the left 


BCC 

LDONE 

;if carry clear, we're done 


\h 
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ROL BIT ;this sets BIT = 1 and clears the carry flag 

LDA BYTE ;get set to subtract 

SBC #7 ythis is like subtracting 8, since carry is clear 

STA BYTE ;take care of low byte 

BCS LDONE ;done if carry set 

DEC BYTE+1 ;else take care of high part 

LDONE RTS ;we're done 


The up/down routines are just a bit trickier. If 
we stay within a character cell, going up is equivalent 
to subtracting one from BYTE, and going down to 
adding one to BYTE. (Note that the value of BIT 
can not change as a result of an up or down move. ) 
What would happen if we were already at the bot- 
tom line of a character cell and we moved down, 
or if we were at the top and moved up? The down 
move would take us to the top of the character cell 
just to the right of the current one, and the up move 
would take us to the bottom of the character cell just 


to the left of the current one — obviously not where 
we want to be. 

The fix is simple: just add 313 to BYTE in the 
former case and subtract 313 from BYTE in the lat- 
ter case. Where in the world did the 313 come from? 
Remember adding 320 to BYTE would move us an 
entire character cell down, which would be seven 
lines too far, so we just subtract seven from 320 to 
get 313, which gets us to the top line of the next 
lower character cell. The same kind of reasoning 
applies to moving up one line. So, here are the 
BASIC subroutines for moving up/down. 


2200 

REM MOVE UP ONE LINE 



2210 

IF BYTE AND 7 

= THEN 

BYTE 

= BYTE - 313:RETURN 

2220 

BYTE = BYTE - 

1: RETURN 



2300 

REM MOVE DOWN 

ONE LINE 



2310 

IF BYTE AND 7 

= 7 THEN 

BYTE 

= BYTE + 313:RETURN 

2320 

BYTE = BYTE + 

1 -.RETURN 




(The AND 7 in each case checks for our exception on the top line of a character cell. If the result equals 
condition. If the result equals zero, it means we're seven, it means we're on the bottom line. ) 

In machine language, these routines are: 


L 


L 


J! 
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UP LDA 

BYTE 

;check for exception 

AND 

#$07 

;test the low bits 

BNE 

UP1 

; if not = we're just going to subtract 1 

SEC 


;else we're going to subtract 313 

LDA 

BYTE 


SBC 

#$39 

;313 = $0139 

STA 

BYTE 

;take care of low byte 

LDA 

BYTE 

;take care of high byte 

SBC 

#$01 


STA 

BYTE 


JMP 

UPDONE 

jwe're done 

UP1 SEC 


;subtract 1 

LDA 

BYTE 


SBC 

#$01 


STA 

BYTE 


LDA 

BYTE+1 

;take care of high byte 

SBC 

#$00 


STA 

BYTE+1 


UPDONE RT£ 


;we're done 

DOWN LDA 

BYTE 

;check for exception 

AND 

#$07 

jexamine low bits 

CMP 

#$07 

;is result = 11 
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BNE 

DOWNl ;no, we're just going to add 1 


CLC 

;else we're going to add 313 


LDA 

BYTE 


ADC 

#$39 ;since 313 = $0139 


STA 

BYTE 


LDA 

BYTE+l;take care of high byte 


ADC 

#$01 


STA 

BYTE+1 


JMP 

DDONE ;we're done 

DOWNl 

INC 

BYTE ;add 1 to low byte 


BNE 

DDONE ;if result not = then we're done 


INC 

BYTE+l,*else adjust high byte 

DDONE 

RTS 

;we're done 


Now we just have to take care of the four diagonal since the diagonal moves are just combinations of 
moves and we are done with this stage. Trivial, right, the appropriate pair of the right/left/up/down 

moves? So: 


2400 REM MOVE 1 STEP TO UPPER RIGHT 

2410 GOSUB 2200:GOSUB 2000:RETURN 

2500 REM MOVE 1 STEP TO UPPER LEFT 

2510 GOSUB 2200:GOSUB 2100:RETURN 

2600 REM MOVE ONE STEP TO LOWER RIGHT 
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2610 GOSUB 2300:GOSUB 2000:RETURN 

27 00 REM MOVE ONE STEP TO LOWER LEFT 
2710 GOSUB 2300:GOSUB 2100:RETURN 


That wasn't too bad, in fact it was so simple that guage source for the whole shootin' match is given 

I'm not going to give the corresponding machine later. ) We are finally in a position to set down in 

language routines here. (The entire assembly Ian- BASIC the algorithm for step four of our outline. 


100 REM THIS ROUTINE DRAWS A STRAIGHT LINE FROM THE CURRENT (XI, Yl) 

110 REM GRAPHICS POSITION TO THE NEW ONE <X2,Y2) 

120 REM I INDICATES THE OCTANT 

13 REM C COUNTS THE MOVES 

140 REM E IS THE ERROR ACCUMULATOR 

150 IF XK0 OR Xl> 319 OR YK0 OR Y1M99THEN ?"ERROR" :STOP 

150 GOSUB 1000 : REM SET BYTE AND BIT FOR XI Yl 

160 REM ENTER HERE IF BYTE, BIT ALREADY SET 

170 IF X2<0 OR X2>319 OR Y2<0 OR Y2>199 THEN ?"ERR0R " :STOP 

180 DX=X2-X1:DY=Y2-Y1 

190 X1=X2:Y1=Y2:REM XI, Yl SET FOR NEXT TIME AROUND 

200 I=0:C=0:IF DX<0 THEN DX=-DX:I=2 

210 IF DY<0 THEN DY=-DY:I=I+4 

220 IF DX-DY<0 THEN T=DX :DX=DY :DY=T: 1=1+8 :REM INTERCHANGE DX AND DY 

23 E=-DX/2:REM NOW SET TO MOVE 


I 
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240 

GOTO 33 0: REM JUMP INTO MIDDLE OF DRAWING LOOP 

250 

REM MAIN DRAWING LOOP STARTS 

• 

260 

N=I:E=E+DY 

270 

IF E<0 THEN 300 

280 

E=E-DX:N=N+1 

290 

REM MAKE MOVE BASED ON N 

300 

IF N<8 THEN ON N+l GOSUB 1000,1100,1200,1300,1400,1500,1600,1700 

310 

IF N>7 THEN ON N-7 GOSUB 1800,1900,2000,2100,2200,2300,2400,2500 

320 

REM SET PIXEL ON 

330 

POKE BYTE, (PEEK (BYTE) OR BIT) 

340 

C=C+1 

350 

IF C<DX THEN 260:REM KEEP LOOPING 

360 

RETURN 


The first part located our octant, and at the same 
time adjusted dX and dY to be what was needed 
(both positive and dX > dY) for the stepping al- 
gorithm. N then alternates between I and I + 1 as 
directed by the sign of E. The two massive ON N 
GOSUB NNNN's make the correct pair of moves 
for the specific octant. 


Now comes the machine language version. To 
make things clearer, I will use the same variable 
names as in the BASIC version (remember these 
will refer to specific RAM addresses which are de- 
fined later in the assembly source), and the com- 
ments will also refer to the BASIC version. 


this routine assumes the X's and Y's are in range 


NOTE - DX,DY, and E are double byte signed numbers 


LINE SEC 


;DX=X2-X1 


22 COMMODORE: THE MICROCOMPUTER MAGAZINE Issue 25 



LDA 

X2 

;take care of low byte 


SBC 

XI 



STA 

DX 



LDA 

X2 + 1 

;then take care of high byte 


SBC 

Xl + 1 



STA 

DX41 


t 

SEC 


;DY=Y2-Y1 


LDA 

Y2 

;take care of low byte 


SBC 

Yl 



STA 

DY 

■ 


LDA 

Y2 + 1 

? (these will normally be zero) 


SBC 

Yl + 1 

; (but we need to make DY double-byte) 


STA 

DY+1 


1 

LDA 

X2 

;X1=X2 



STA 

XI 



LDA 

X241 



STA 

Xl + 1 


t 

LDA 

Y2 

;Y1=Y2 


STA 

Yl 



LDA 

Y2+1 
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STA 

Yl + 1 


r 

LDA 

#$00 

;I=0 

STA 

I 


STA 

c 

;C=0 

STA 

C+l 


f 

BIT 

DX+1 

;test sign of DX 

BPL 

LINE1 

;skip to next if DX>0 

LDA 

DX 

;IF DX<0 THEN DX=-DX 

JSR 

COMPL 

;subroutine to negate 

STA 

DX 


LDA 

DX+1 


JSR 

COMPH 

;negate the high byte 

STA 

DX+1 

;we now have DX=ABS(DX) 

LDA 

#$02 

;I=2 

STA 

I 


! 

LINE1 BIT 

DY+1 

;test sign of DY 

BPL 

LINE2 

;skip to next if DY>0 

LDA 

DY 

;IF DY<0 THEN DY=-DY 

JSR 

COMPL 

;negate the low byte 
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STA 

DY 


LDA 

DY + 1 


JSR 

COMPH 

;negate the high byte 

STA 

DY + 1 

;we now have DY=ABS(DY) 

CLC 


;I=I+4 

LDA 

I 


ADC 

#$04 


STA 

I 


LINE2 LDX 

DX 

;we're going to check the sign of DX-DY 

CPX 

DY 

; (at the same time we put DX into X-register) 

LDA 

DX+1 

; fetch DX+1 

TAY 


;hang on to DX+1 in Y register 

SBC 

DY+I 

;this is the way to do a double byte comparison 

BPL 

LINE3 

;skip to next if DX-DY is positive 

LDA 

DY 

;IF DX-DY <0 THEN T=DX:DX=DY 

STA 

DX 


LDA 

DY+1 


STA 

DX + 1 


STX 

DY 

; (this is why we saved DX in X-register) 

STY 

DY+1 

; (and DX+1 in Y-register) 

CLC 


; 1=1+8 

LDA 

I 



JJ 
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ADC #$08 



STA I 


LINE3 

LDA DX 

;E=-DX/2 


JSR COMPL 

; negate low byte of DX 


STA E 



LDA DX+1 



JSR COMPH 

;negate the high byte of DX 


STA E+l 

;we now have E=-DX 


SEC 

; (we're going to divide a negative number by 2) 


ROR E+l 

jrotate right is equivalent to dividing by 2 


ROR E 

;do low byte 

i 

LD¥ #$00 

;we need Y=0 for the next step 


BEQ LINE6 

;JUMP INTO MIDDLE OF DRAWING LOOP 

;the main drawing loop starts here 

LINE4 

LDX I 

;N=I (set octant pointer into X-register) 


CLC 

;E=E+DY 


LDA E 



ADC DY 
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STA E 

LDA E+l 

ADC DY+1 

STA E+l 

BMI LINE5 ;IF E<0 THEN 300 

SEC ;else E=E-DX 
LDA E 

SBC DX 

STA E 

LDA E+l 

SBC DX+1 

STA E+l 

INX ;N=N+1 


LINE5 

JSR 

OUTPL 

j this makes the correct move based on X-register 

LINE6 

LDA 

(BYTE) 

,Y ;POKE BYTE, (PEEK (BYTE) OR BIT) 


ORA 

BIT 



STA 

(BYTE) 

,Y 


INC 

C 

;C=C+1 


BNE 

LINE7 

;skip over next line unless result is zero 


INC 

c+i 

; (take care of high byte if necessary) 

LINE7 

LDA 

DX 

;IF C<DX THEN 360: REM KEEP LOOPING 


CMP 

C 



LDA 

DX + 1 
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SBC C+l ;this is our double byte comparison again 
BCS LINE4 ;keep looping if this is true 
RTS ;if we got here we're done 

;finally comes the table of addresses 
;note that because of the way JSR works 
;we need address minus 1 

1 

;also note that an address needs two bytes, and that's why we had 
to double the index 

■ 

MOVTAB .WORD RIGHT-! ;moves for octant 

.WORD UR-1 

* 

.WORD LEFT-1 ; octant 3 
.WORD UL-1 

r 

.WORD RIGHT-1 ;octant 7 
•WORD LR-1 

.WORD LEFT-1 ; octant 4 
.WORD LL-1 


JJ 


28 COMMODORE: THE MICROCOMPUTER MAGAZINE Issue 25 


t 





.WORD UP-1 

;octant 

1 


.WORD UR-1 



• 

1 





.WORD UP-1 

; octant 

2 


.WORD UL-1 



t 

.WORD DOWN-1 
.WORD LR-1 

; octant 

6 

t 

.WORD DOWN-1 
.WORD LL-1 

;octant 

5 

J 





Believe it or not, we've just finished step four of 
our outline, and the end is in sight. The next step is 
only applicable to the machine language part, and 
involves a technique for linking BASIC to our ma- 
chine language routines. The simplest way would 
be to POKE the appropriate numbers into RAM, 
and then SYS to the entry point of the machine lan- 
guage routine. But this is clumsy (I'm sure you're 
fed up with POKEs) and we're not going to do it. 


Another way might be to use the USR command to 
pass a parameter, but our routines need two param- 
eters (X and Y) so we won't do it that way either. 

The most elegant way would be through the 
"wedge" (a routine called by BASIC to pick up 
consecutive characters from a BASIC program), 
and we could therefore create our own "reserved" 
words (like MOVE or DRAW) to call our routines. 
However, we won't do that for two reasons: 1 ) the 
wedge may already be in use (DOS and other pro- 
gram aids use it) and we could clobber it unknow- 
ingly. 2) A lot of checking via the wedge tends to 
slow down all of BASIC, which would defeat one 
of our main purposes. 

So how are we going to do it already? I'll tell 
you — read on. 

The compromise I've chosen is to use the SYS 
command, and we will use parts of the BASIC in- 
terpreter to fetch parameters which we will append 
to the SYS command. For example, suppose we've 
set a variable MV equal to the start of our MOVE 
routine. Our connection to machine language will 
be SYS(MV),X,Y— where the X and Y are any- 
thing normal BASIC can evaluate. That is, (we can 
leave out the parentheses around MV) it could be 
SYSMV,5,100orSYSMV,SQR (5*Y),Z*(X+Y) or 
SYSMV, - Y,X as long as we keep in mind that the 
first number, whatever it evaluates to, will be inter- 
preted as the X coordinate and the second as the Y 
coordinate. This is the way the real guys do sub- 
routine calls in, for example, FORTRAN. 

Note: the commas are necessary to keep the 
parameters separate and we will want a SYNTAX 
ERROR in line NNNN if they're not present. BASIC 
"sees" the SYSMV and goes there. Now our routine 
takes over by first calling the appropriate routine 
from the BASIC interpreter to check for the first 
comma (and takes care of SYNTAX ERROR if it's 
not there), then calls an expression evaluator se- 
quence to evaluate the first parameter (which also 
aborts on finding an error condition), puts the result 
into RAM (the subroutine itself knows where to put 
the result), checks for the next comma, and finally 
gets the next parameter and executes the MV The 
routines needed for the Commodore 64 are: 


L 


L 
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CHKCOM = $AEFD ; aborts with SYNTAX ERROR if comma not next 

non-space character 

EVAEXP = $AD9E ;EVAluates Expression in floating point form 

FLTFIX = $B1AA ;converts the floating point result to fixed point 

in the Y- and A- registers 

ERRVEC = $0300 ;points to BASIC'S error routine 


That's all there is to it!! So let's create a little 
routine, which we can call whenever we need it: 


and A (high byte). Parameter must be in the form ' ,<expression> ' 

GETVAL JSR CHKCOM ; check for comma (aborts with SYNTAX ERROR if 
comma absent) 

JSR EVAEXP ; evaluates expression 

JMP FLTFIX ;converts result of EVAEXP to fixed point in 
Y,A and returns 

;here is an example, which implements SYSMV,X,Y 

MOVE JSR GETVAL ; fetch X coordinate 
STY X2 ;save low byte 
STA X2+1 ;save high byte 


IL 
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JSR GETVAL ;fetch Y coordinate 

STY Y2 ;save low byte 

STA Y2+1 ;save high byte 

JSR RNGCHK ;are X and Y values in range? 

JMP PXADDR ;set BYTE, BIT and return to normal BASIC 

;here is RNGCHK, which makes sure X is in the range to 319 

;and Y within to 199 

;aborts with ILLEGAL QUANTITY ERROR if either X or Y are not in 

range 

• 
f 

RNGCHK LDA X2 ; check X coordinate 

CMP #$40 ;320 dec. = $0140 

LDA X241 ;this is our double byte comparison again 

SBC #$01 

BCS RNGERR jerror if carry set 

LDA Y2 ;next chaeck Y coordinate 

CMP #$C8 ;200 dec. = $00C8 

LDA Y2+1 

SBC #$00 

BCS RNGERR ;error if carry set 


il 
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RTS ;no error, return to calling routine 

9 

RNGERR LDX #$0E ;this is the way to signal ILLEGAL QUANTITY 
ERROR 

JMP (ERRVEC) ; abort through BASIC'S error vector 


We are now ready for the sixth and last step of chip for bit-mapped graphics. So we need to turn 

our outline, namely, to provide a clean return back off bit-mapped mode, get back to bank 0, and re- 

to normal BASIC. This is simply the inverse of what store the normal screen address. In BASIC, this is: 
we did in step one, where we initialized the VIC 


3000 POKE 53265, PEEK{53265) AND (255-32) :REM TURN OFF BIT 5 

3010 POKE 56576, PEEK(56576) OR 3:REM RESTORE BANK 

3020 POKE 53272, PEEK(53272) AND 7 OR 16:REM RESTORE SCREEN ADRESS 

3030 RETURN 


In machine language: 


RESTOR LDA $D011 ;VIC control register 

AND #$DF ;turn off bit 5 

STA $D011 ;we're now in normal character mode 

LDA $DD00 ;bank register 

ORA #$03 ;turn on bits 0,1 


li 
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STA 

$DD00 

;VIC now sees addresses from to $3FFF 

(bank 0) 

LDA 

$D018 

;VIC memory register 


AND 

#$07 

;clear bits 7-3 


ORA 

#$10 

;turn on bit 4 


STA 

$D018 

;screen memory is now at $0400-$07FF 


RTS 


;we're done 



So now that we have all the software resources 
we need for pixel setting and line drawing in high- 
resolution, how do we put it all together to give us 
something usable? Listing #1 gives the complete 
assembly source for the machine language part, 
which for the most part, follows exactly the routines 
I have discussed above. Any differences should 
be clarified by reading the comments. Those with 
assemblers will find it quite worthwhile to key in 
the source text, especially since the potential for 
expandability is large, and they will be in a very 
good position for possible future articles. 


If you have a machine language monitor, you 
can key in and SAVE the hex code directly via 
S "HRSUPP",dn,6000,6331 where dn is 08 for 
disk, 01 for tape. Use the checksums in listing #2 
with your own BASIC program to add up the bytes, 
and remember to use LOAD "HRSUPP",dn,l 
where dn is 8 for disk, 1 for tape. Otherwise, use 
all of listing #2, which is done in BASIC, which 
has DATA in "hex", and includes checksums for 
each 128 bytes. As always for this kind of opera- 
tion, SAVE your data before attempting to RUN. 

A BASIC program in listing #3, HRTEST, gives 

Continued on page 62 



I 1 



Figure 6. Results of the Routines in Listing #3. 
I 1 
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Your computer can be your financial ad- 
visor, your accountant, your secretary and 
your file clerk. It will calculate your taxes, 
connect you right to Dow Jones, and bring 
you your evening (electronic) newspaper. 
All you have to do is pick your software 
carefully and choose a system that can 
expand as your business does. 







BUSINESS? 


By Diane LeBoid 


H 


ow 


can computers help your busi- 
ness? Those of you who have 
been using Commodore comput- 
ers in your businesses already 
know the answer to that question. 
Computers save time, paper, file 
space and aggravation. Mainly 
they save time. And when you 
or your employees don't have 
to spend all that time struggling 
to keep up records or address 
envelopes or perform any of 
the other tedious, time consum- 
ing tasks involved in running a 
business, you can finally get to 
important things like soliciting 
new accounts or staying in closer 
contact with your existing clients 
or salespeople. Things that help 
you build up your business and 
increase your profits — instead of 
just staying even. Then pretty 




The money you invest in a Commodore system 

can be more than paid back in the time you save 

and the aggravation you prevent. Which, of course, 

leaves you with more time and energy to devote to 

things like marketing, promotion, improving 

relations with customers and employees. 


soon you find ways for your com- 
puter to help you do even these 
new tasks quicker, so you have 
time for. . . maybe even a day at 
the beach, (If you've been doing 
business by hand you've probably 
forgotten that people do take 
days off.) 

Commodore computers are 
being used around the world in all 
kinds of businesses for all kinds of 
tasks. In past issues of Commo- 
dore we've talked about some of 
these businesses: a nursery (as in 
plants, not children) that uses a 
CBM system to enter and track 
orders, keep inventory and cus- 
tomer records, produce invoices 
and sales summaries and figure 
sales commissions; a moving and 
storage company that uses their 
CBM to maintain a warehouse 
control system and produce in- 
voices and statements; a veter- 
inarian who uses a Commodore 
system to keep records; an an- 
nouncer on a radio talk show who 
screens calls using a VIC 20; a tie 
salesman who keeps all his ac- 
counts on a CBM. And in this issue 
you can find out about other busi- 
ness people who have streamlined 
their operations using Commo- 
dore equipment. This is just a tiny 
sampling of the many small-to- 
medium-sized businesses who 
have used Commodore comput- 
ers to successfully cope with — 
and enhance — their growth. 

But back to our original ques- 
tion. How can computers help 


your business? Think about this: 
could you manage your finances 
better if you could play around 
on a "what-if ' spreadsheet that 
automatically changed all the af- 
fected numbers when one number 
changed? Without any tedious 
calculations on your part? What if 
your gross revenues in one sales 
area change? How would it affect 
your overall profit? What if you 
added five people to your payroll? 
Would you like to forecast sales 
and set sales goals? An electronic 
spreadsheet can help you do all 
that — and much more — so you 
can see exactly what your finances 
will do under various circumstances. 

Could you take better care of 
your customers if you could enter 
one piece of data — for instance, a 
product code — and immediately 
get a list of all the customers who 
buy that product? Or could you 
use a list of all the customers who 
haven't made any purchases since 
a certain date — instantly and ac- 
curately, without having to shuffle 
through reams of paper files? How 
about a list of all the sales reps 
who have sold over $100,000 this 
quarter? A good data base man- 
ager can help you manipulate this 
kind of important data to your 
best advantage. 

What about those contracts or 
form letters you have to send out 
time after time after time, each 
one just slightly different? Or the 
reports that undergo several re- 
visions before you get them into 


final form? Or the labels you need 
every month to send out your 
latest updates to your clients? A 
good word processor can make 
these tasks so much easier you'll 
wonder how you ever got by with 
just a typewriter. (A note for our 
novices: because several com- 
panies make what we call "dedi- 
cated" word processors — that is, 
computers that have word pro- 
cessing software built in and can 
do only word processing and 
nothing else — many people think 
the term "word processor" refers 
to the hardware — the computer 
itself. This is not the case. A word 
processor is software, whether built 
in or loaded from disk or tape.) 

Accounts receivable and pay- 
able, with or without the capa- 
bility to produce invoices or write 
checks, that updates records im- 
mediately so you always know 
exactly where you stand. Payroll 
software that calculates deductions 
and keeps complete records on all 
employees. Inventory software 
that you can coordinate with 
order-entry software to keep 
your inventory records up-to-the- 
minute accurate. Specialized pro- 
grams for contractors that estimate 
job costs based on the most up- 
to-date information entered in the 
system. Other specialized programs 
for real estate brokers, farmers, 
lawyers, doctors, designed to meet 
their unique needs. Retail software 
that keeps accurate track of what 
each of your sales people sell each 


36 COMMODORE: THE MICROCOMPUTER MAGAZINE Issue 25 


A computer is one employee who is terrific at 

boring, tedious, repetitive, time-consuming tasks 

like complex calculations and information filing 

and retrieval. So the logical place to start is with 

those kinds of tasks. (The ones you or your 

employees generally hate.) 


day, calculates commissions, and 
coordinates with your inventory 
and payroll software as well. 

By now you get the idea, I'm 
sure. The money you invest in a 
Commodore system can be more 
than paid back in the time you 
save and the aggravation you pre- 
vent. Which, of course, leaves you 
with more time and energy to de- 
vote to things like marketing, pro- 
motion, improving relations with 
customers and employees — and, 
as a result, helps increase market 
share, productivity and profits. 

OK, you're convinced. Now all 
you need to decide is what kind of 
system to buy, or how to improve 
your existing system. When you're 
ready to make that decision, we 
suggest you work backwards. First 
sit down and make a list of all the 
things you would like your com- 
puter system to do — or do better, 
if you already have a system. Re- 
member that a computer is one 
employee who is terrific at boring, 
tedious, repetitive, time-consum- 
ing tasks like complex calculations 
and information filing and retrieval. 
So the logical place to start is 
with those kinds of tasks. (The 
ones you or your employees 
generally hate.) 

Next look at the chart at the 
end of this article. True, it's by 
no means the last word on what's 
available for Commodore sys- 
tems, but it will give you a good 
sense of what some of the more 
popular products presently on 


the market can do. Under 
"Capabilities" find the jobs you 
want your computer to do. Then 
see which software packages do 
these jobs. You'll notice that many 
products — usually designed to 
be complete general business 
"systems" — do more than one 
job, while others are specialized. 
Very often specialized products 
made by the same company are 
compatible with each other. For 
instance, information in an order 
entry program may be able to be 
used in an inventory program 
produced by the same company. 
But not every manufacturer pro- 
vides this cross-compatibility, so 
before you buy, make sure you 
check on which programs are 
compatible with each other. It's 
an important feature to consider. 

Only after you decide which 
software packages suit your needs 
are you ready to start thinking seri- 
ously about which system to buy. 
(That's why I said the decision- 
making process is backwards.) 
Now you're ready to consider 
things like the cost and convenience 
of expanding the system to meet 
your future needs and the types 
of peripherals available. For in- 
stance, will you need a more 
expensive letter-quality printer 
so the copy looks like it was done 
on a regular typewriter? Or will 
dot matrix be sufficient? (Dot ma- 
trix copy is perfectly readable but 
looks "computerish"). Do you an- 
ticipate needing significantly more 


memory before too long? Will the 
number of rows and columns you 
can view on the screen continue 
to be sufficient in the future? 

You should also think about 
other types of software and addi- 
tional features you'd like to have, 
either just for the fun of it (like the 
Commodore 64's music synthe- 
sizer for instance) or for extended 
business benefits (like the capability 
to use a modem, so you can access 
huge telecommunications data 
bases to get the latest information 
on stocks, news, airline schedules 
and much more — see Walt Kutz's 
article in this issue for details). 
Then you can finally weigh cost/ 
benefit ratios, narrow down your 
possibilities and make a purchase. 
Actually, if you've done the rest 
of your homework, this is the 
easy part. 

There can be no doubt that a 
Commodore computer is a ver- 
satile tool. But, like any other tool, 
its real value and usefulness are 
often ultimately determined by 
the skill and good sense of its user. 
Your computer will not, as some 
people like to imply, perform 
miracles — at least not all by itself. 
But if you put your system to- 
gether carefully and choose your 
software intelligently, you will be 
amazed at how easy formerly 
cumbersome tasks become. 
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Business Software for 
Commodore Computers 


Capabilities 


System: PET/CBM 

Available Program 
From Name 

Computer 

Drive 

/J 

74 


Commodore 
Dealers 

ozz 

8032 

8050 


X 
















Dow Jones Port- 
folio Management 

8032 

4032 

8050 

4040 



X 

X 














Freight Rating 
Information System 

Contact 
Vendor 



X 















Medical Account- 
ing System 

8032 

8050 

X 









X 








Atlas 

8032 

8050 






X 












Titan 

8032 

8050 







X 











Information Retrieval 
& Management Aid 

8032 

4032 

8050 
4040 



X 












X 



Legal Time 
Accounting 

8032 

8050 

X 







X 










Computer 

Marketing Services 

Accounts Receivable 
Inventory System 

8032 
4032 

8050 
4040 

X 





X 

X 











Silicon Office 

8096 

8050 
8250 
9060 



X 














X 

Wordcraft 80 

8032 

8050 

4040 

















X 

Management 

Accountability 

Group 

MAGIS™ 

8032 

8050 

X 

X 

X 




X 




X 





X 


MAGIS™ Plus 

8032 

8050 

X 

X 


X 


X 

X 




X 





X 


Real Estate 

8032 

8050 

X 


X 



X 

X 




X 

X 






The Contractor 

8032 

8050 

X 

X 




X 





X 







Computerized 
Public Accounting 

8032 

8050 

X 



X 













Southern 
Solutions 

General Ledger 

8032 

8050 

X 










X 







Accounts Payable 

8032 

8050 

X 






X 











Accounts 
Receivable 

8032 

8050 

X 






X 











Payroll 

8032 

8050 











X 







Mailing List 
Manager 

8032 

8050 









X 









General 

Accounting System 

8032 

8050 

X 






X 




X 







Info Designs 

Order Entry 
System 

8032 

4032 

8050 
4040 







X 











Inventory 
Management System 

8032 
4032 

8050 
4040 






X 












Accounts 
Receivable/Billing 

8032 

4032 

8050 
4040 

X 






X 











Accounts Payable/ 
Checkwriting 

8032 
4032 

8050 
4040 

X 






X 











General Ledger 
System 

8032 
4032 

8050 
4040 

X 

















Payroll 

8032 

4032 











X 





X 
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Business Software for 
Commodore Computers 


Af>/ 






C 

apa 

bllities 







Available 
From 

Program 
Name 

Computer 

Drive 

/ / / / / J^/ / /v ////// 

WJ/mfMS/f/f/Jff 

Minisoft 

General Ledger 

8032 

8050 

X 

















Accounts 
Receivable 

8032 

8050 

X 






X 


X 









Accounts 
Payable 

8032 

8050 

X 








X 










Payroll 

8032 

8050 

X 










X 








Inventory 

8032 

8050 

X 





X 













Job Cost 

8032 

8050 

X 

X 

















Mail List 

8032 8050 









X 










Computer 

System Sales 

Chain Inventory 

8032 8050 





X 







X 






Motorcycle 

Shop 

4032 
8032 

4040 
8050 






X 







X 

X 





Shoe Store 

2001-32 
4032 
8032 

2040 
4040 
8050 






X 







X 

X 





Hairdressing 
School 

2001-32 
4032 
8032 

2040 
4040 

8050 


X 












X 





Photo Lab 

2001-32 
4032 

4040 
8050 


X 





X 







X 




Basic 
Inventory 

2000 
4000 
8000 

2040 
4040 
8050 






X 












Clockwork 
Computers 

CCI Restaurant 
Package 

4000 4(m 
8000 4U4U 

X 





X 

X 






X 

X 




CCI Retail 
Package 

4000 
8000 

4040 

X 





X 

X 





X 





CCI Retail & 
Light Mfrg. 

4000 
8000 

4040 

X 





X 

X 






X 





INI™ 

Zipper™ 

8032 8050 









X 









Mystic Software 

Stock Brief 

16K 

2031 
4040 
8050 



X 

X 















Bits & Bytes 

Billing Manager 

4032 

8032 

4040 
8050 

X 





X 

X 












Transadenta! 
Software 

Transadental 
File 

4032 L 

8032 'Datassette 

X 


X 







X 





X 



Dental Recall 
File 

4032 
8032 

Datassette 



X 






X 

X 








CFI 

Tax Preparation 
System (1040) 

Contact 
Vendor 

X 















X 


Asert 

8032 

4040 
8050 



X 















Total Infor- 
mation Services 

Accounts 

Contact 

Vendor 

X 


X 




X 











Calendar 

Contact 
Vendor 


X 
















Instant Software 

Accounting 
Assistant 

8K 

PET 





X 














Mini Comp Systems 

Inventory 
Control 

4032 
8032 

2040 






X 













Continued on page 57 
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TALE 
OF TWO 
BUSINESSES 


By Diane LeBold 


These two very different businesses — 
one selling Avon Products and the 
other importing wines and liquors — 
have one thing in common. They im- 
proved their business dramatically 
when they began using a Commo- 
dore computer. 
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A Tale of Two Businesses 


An Avon 

District Sales Manager 

"Revolutionizes" Her Business 



V --* ' 


Illustration — Jean Gardner 
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When Marilyn Phillips' husband 
brought home a PET computer in 
1979 she thought he was crazy. 

"His excuse was that it would 
revolutionize my business," Mari- 
lyn explains. "But neither one of 
us had ever done anything with 
computers before." 

It wasn't too long, however, 
before Marilyn, a district sales 
manager for Avon Products, was 
using the computer to handle the 
enormous amount of paperwork 
involved in running her southern 
California sales district. As a result, 
she suddenly had more time to 
devote to planning her sales strat- 
egies and staying in close touch 
with her 400 sales representatives. 
This caused a substantial increase 
in sales volume. In fact, by the end 
of that year Marilyn's district had 
one of the highest volume in- 
creases in the country, placing in 
the top 10% — and winning Mari- 
lyn a trip to Monte Carlo to boot. 

Marilyn points out that before 
her husband bought the com- 
puter, her district already had a 
high sales volume. 

"It's easy to increase a low vol- 
ume," she explains. "But to have 
a significant increase in an already 
high-volume area is very hard, 
especially considering the state 
of the economy in those years." 

Marilyn has since purchased a 
CBM 8032 computer and an 8050 
dual disk drive, but she continues 
to use the same software packages 
— a modified version of the Jin- 
sam data base manager from Jini 
Micro Systems, and VisiCalc™, 
an electronic spreadsheet. 

On the Jinsam data base she 
keeps a list of all her sales repre- 
sentatives, with their addresses 
and phone numbers. She has the 
list coded by length of service, 
groups (sales leaders, president's 
club, etc.), territory, census tract 
boundaries, net sales, number of 
customers served and number of 


For two years in a row Marilyn 
Phillips' Avon sales district 
has had outstanding sales in- 
creases. Marilyn plans to con- 
tinue to stay at the top — thanks 
to the Commodore system her 
husband brought home. 



Mon'Jyn Phillips 


brochures ordered. As a result she 
can run a list of representatives in 
any combination of categories. If 
she wants to do a specialized mail- 
ing, she can, for instance, produce 
labels for everyone with a two- 
year length of service who sold 
more than $500 and who ordered 
more than 100 brochures — or 
any other such combination. 

Using VisiCalc, Marilyn does 
her sales forecasting for both the 
district as a whole and individual 
representatives. She then sets goals 
for each representative based on 
past sales records. This system 
has been very successful in help- 
ing increase sales, Marilyn says. 

"I once did a forecast for a 
$50,000 campaign and sent out 
individualized postcards to the 
representatives telling each one 
what their share of the campaign 
was. We immediately had a wild 
increase in sales." 

But she says she has to be judi- 
cious in how she applies her vari- 
ous strategies. 

"I could do that kind of thing 
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every time," she goes on, "but I 
think it would lose its impact. So 
1 try other approaches, too." 

Before she started using the 
Commodore system, Marilyn says 
she "went crazy" doing all her 
paperwork by hand. Now, even 
though she spends as much time 
at her work as she did before, 
she's accomplishing much more in 
the time she spends, getting things 
done that she simply did not have 
time for in her pre-computer days. 

"Some people just love paper- 
work," she says, "but I'm not that 
kind of person. I'd rather get out 
and work with my representatives 
individually — and let the computer 
handle the nitty gritty for me." 

"You have to do more than just 
rely on luck — or a good economy 
— if you're going to have consis- 
tent high volume," she elaborates. 
"I've been in the top 10% of vol- 
ume increases for two years in a 
row, and I think the computer 
really helped me do that." 

Eventually Marilyn hopes to be 
able to hook her computer into 
Avon's computer, so reports can 
be transmitted directly. This, she 
says, is "my dream. It would save 
a tremendous amount of time." 

Not surprisingly the Phillips 
family computer has affected other 
areas of their lives. Marilyn says 
her husband is now head of data 
processing at his company, since 
he taught himself about computers 
using the Commodore system. 
And her daughter now does all 
her papers for school on the word 
processor. ("I put my typewriter 
away almost two years ago," Mari- 
lyn explains. "I think I keep it 
because I keep thinking I might 
need it to type an address on an 
envelope some day.") So, in 
Marilyn's words, the Commodore 
system her husband bought to 
"revolutionize her business" has 
also managed to revolutionize her 
family, as well. 
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A Tale of Two Businesses 


Thank a VIC 20 

For More Fine 

Bordeaux Wines 
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Let's get right to the point. In 
1981 Michael Allen & Company, 
Inc., a wine and liquor importer in 
Lindenhurst, New York, was sell- 
ing 20 or 30 cases a month of 
about 40 different classified Bor- 
deaux wines (in addition to other 
wines and liquors, of course). Now 
they turn over about 2500 cases a 
month from a selection of about 
350 different fine Bordeaux's. 
How did it happen? You're right. 
In 1981 they started using a com- 
puter — namely a VIC 20 with 
16K expansion — to do the com- 
plex calculations needed to handle 
these particular wines, whose 
prices are very volatile. 

The constant fluctuations in the 
prices of top quality Bordeaux 
wines combined with the unpredict- 
ability of the French franc, accord- 
ing to Marty Gilbert, executive vice 
president at Allen & Company, had 
previously made it next to impos- 
sible for the company to handle 
these wines in any quantity. Unlike 
their cousins from Burgundy, 
whose prices remain relatively 
stable and need to be updated only 
about once a year, the Bordeaux 
wines change prices almost as 
often as a bumble bee changes 
flowers on a sunny day. 

"We couldn't get into the Bor- 
deaux business before we created 
this program," Marty explains. 
"The calculations just took too 
much time. We were trapped." 

Marty Gilbert wrote the special- 
ized wine importing program him- 
self, even though he has had no 
formal training in programming. 
What Marty's program does, in 
short, is take the price of the wine 
in French francs, convert it to dol- 
lars (based on the latest value of 
the franc), add ocean freight, 
duties, and taxes, and calculate a 
total New York-landed price — the 
total cost, in dollars, of getting the 
wine into the Allen & Company 
warehouse. It also calculates the 
in-store price for the retailers to 


Their big computer system 
didn't have the flexibility to 
do the complex calculations 
this liquor importing busi- 
ness needed. They turned to 
a VIC 20, and were able to 
increase their Bordeaux im- 
ports about a hundredfold. 



Marty Gilbert 


whom Allen sells, also in dollars. 

It then prints out an alphabetical 
list of all the chateaus within a re- 
gion, showing the name of the 
wine, the vintage, the cost in francs, 
the New York-landed price in 
dollars and the retail price in dol- 
lars, with Allen's mark-up added 
on from a sliding scale built into 
the program. After the list is 
printed out, the retail version or 
"offering list" then goes out to 
their customers whenever there 
is a price change. 

Of course, to get everything cal- 
culated right you have to enter the 
latest prices of all the wines that 
have changed and the current 
value of the French franc, but 
that's pretty easy compared to 
what you'd have to do if you were 
doing all the calculations by hand. 

The program also has another 
interesting facet. At the beginning 
it asks for the actual value of the 
French franc at the time the com- 
pany placed its order, and then for 
the actual value at the time they 


paid the winery. That's because, 
Marty explains, the company bills 
its customers and figures retail 
prices based on the value of the 
franc at the time the wine is or- 
dered. But they calculate their 
New York-landed cost at the value 
of the franc when they actually 
make payment. 

"It's confusing," Marty chuckles 
"but then it's a confusing issue. 
Without the computer it would 
be impossible." 

The program. Marty says, is 
now being used by two other im- 
porters — one in California and one 
in New Hampshire — with great 
success. In Marty's own company, 
as a result of using the program, 
expensive Bordeaux wines now 
make up 20% of total business 
—up from 3% in 1981. 

Marty has also written two other 
business programs for the VIC: 
one that produces a yearly gross 
profits report and one that calcu- 
lates his company's state and city 
excise tax every month. 

"It's a very complicated for- 
mula," he says of the monthly ex- 
cise tax calculations. "Before, it 
took us twenty minutes for each 
of 500 items. It would take us four 
days to get it done by hand. Now it 
takes the VIC about an hour." 

He is also in the process, he 
says, of writing a data manager 
for the Commodore 64, his new- 
est love. 

"I originally wrote it as a mailing 
list to handle our 750 customers," 
he goes on, "but then I saw how it 
could be used as a data manager. 
I'm going to use it at home, too, 
for things like keeping track of 
what movies are on which tapes 
for our video cassette deck." 

From exquisite wines to video 
cassettes. Did I hear someone say 
computers are versatile? Come to 
think of it, I think Marty Gilbert 
said that, somewhere in our 
interview. 

Continued on page 60 
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Illustration-Carmen Console 
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By Donald E. Hassler 

Fidel itj' Management Systems 
Phoenix, AZ. 85012 


Software that keeps track of retail sales, calculates sales 
people's commissions, and coordinates payroll and 
inventory helps this business run more smoothly. 


The first full year 1 used my 
Commodore microcomputer 
with my own sales entry pro- 
grams, it saved me $10,000!! That 
sounds like a lot. It saved time on 
audits from various agencies and, 
above all, it gave me a manage- 
ment tool that 1 had never had 
before, right here in the store. 

The whole story started about 
20 years ago. When National 
Cash Register (NCR) brought out 
its class five cash registers, it also 
provided a complete retail man- 
agement program for those who 
wanted it. This program took all 
the cash register transactions and 
processed them by a mainframe 
computer, to produce a variety of 
management reports. We started 
using the NCR package way back 
in 1965. All the processing was 
done by NCR in Denver and it 
took forever (ten days or more) 
to get the reports back. 

In 1971 one of our local banks 
took over the work and our turn- 
around time was improved. So we 
went along with it but never really 
got things organized as they should 
be. For instance, if we wanted any 
special reports or wanted to make 
even minor changes in the master 
records, action seemed to take 
two or three months. Even when 
it was working properly, our book- 


keeping staff never seemed to 
understand all the reports. We 
made lots of costly, uncorrected 
mistakes. These were mostly input 
errors that went undetected for 
many months. 

In 1978 I decided that we must 
have in-house data processing 
for the three stores that we were 
operating. So the search began. 

This is lesson number one for 
all of you who want your own 
computer systems. If you are gen- 
erating more than $750,000 and 
have more than five employees, 
it will cost you money not to have 
your own microcomputer. The 
lesson is: find someone who has 
the right software for your type of 
business!! Believe me, the soft- 
ware is out there. (Editor's Note: 
See our listing of business software 
in this issue) 

So I located a computer expert 
in Tucson — Harry Goodkin — 
who had the exact programs that I 
needed. Harry had taken the basic 
data and reports from the NCR 
Retail Management System and 
was using them on his PDP-11 
mini. Best of all, the system was 
already being run successfully by 
a retail jewelry chain in Tucson. 
The programs were written, tested, 
and running. And that is lesson 
number two. The lesson is: be sure 
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M'mdy Feie, cashier, 
enters a sale. Later, the 
Sales Entry and Analy- 
sis System (Saient) will 

use this information 

to generate reports. 
General Manager John 

Courtney observes. 


that the software you choose has 
been thoroughly tested!! 

The time between my original 
contact with Harry and the pur- 
chase was at least six months. 
After hearing the horror stories 
about others whose systems failed. 
I was not about to make a rash 
decision. We discussed many dif- 
ferent systems and ways to pro- 
cess. The final choice was very 
fortunate. We purchased a Com- 
modore 8032, an 8050 dual disk 
drive, and a 2022 printer. We also 
decided to buy the Business En- 
hancement Software (BEC) ac- 
counting programs. Harry would 
do the programming necessary 
to fit his PDP-1 1 programs to 
our system. The total price of the 



entire deal was under $6,000. 

Since March of 1981 we have 
been using the system. It is the 
best boost our business can have. 
All the programs run well. We get 
full sales reports every Friday and 
two days after the close of every 
month. We could have them every 
day if we wanted. The balance 
sheet and income statement are 
finished by the tenth. There is no 
substitute for this speed of man- 
agement communication. And this 
is lesson number three. The lesson 
is: if you have a system, use it for 
speed and accuracy. Don't expect 
it to immediately replace personnel. 

Now you are probably thinking, 
"What's so great about a business 
accounting package? There are 
lots of those." You're right. The 
heart of our system is not the busi- 
ness accounting package. It's the 
sales entry and analysis system. 
We call it "Saient". 

Saient takes every cash register 
transaction, either from the detail 
tape or from the actual invoices, 
and allows it to be input and listed 
on the computer. It then creates 
a datafile (or database) of these 
transactions for generating re- 
ports. And reports there are!! 

The best part of the system is 
the "sales performance" module. 
There are MTD and YTD reports 
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for each salesperson in each 
store, showing merchandise sold, 
non-merchandise sold, returns 
and number of transactions. By 
separating merchandise and 
non-merchandise there can be a 
separate commission paid. Tech- 
nicians or other non-sales persons 
may also have a sales number 
if they are producing revenue. 

Sales may be split between 
two salespersons. And sales may 
be split between several stores 
for the same sales number if one 
person works at, or is transferred 
to, a different location. Each stores 
sales total will match exactly the 
cash register daily totals. 

Now here's the workhorse of 
this system. It's called a "sales 
edit list". This list is printed as the 
product of each day's store trans- 
actions. The sales edit list figures 
must equal the daily cash deposit. 
Just as a cash register with locking 
totals forces a balance, so does the 
sales edit list. The best part of it is 
that the list is in highly readable 
form. It's easy for a controller or 
auditor to locate errors or make 
adjustments. 

The daily sales disks (one for 
each store) are posted periodically 
to a posting (or analysis) disk. This 
disk is the source of all the system 
reports. In addition to "sales per- 



Bookkeeper Jeanne 
Reeves uses a CBM 
8032 with a business 
accounting package jot 
speed and accuracy. 


formance" there is a "sales sum- 
mary" (shows sales by class), 
"sales tax and non-merch report" 
and a "charge transactions list". 
All the charge transactions may 
be posted to BEC's accounts 
receivable module, if desired. 

That's the main story. The entire 
software package sells for $450. 
It supports up to nine store loca- 
tions, 49 salespeople, 45 non-mer- 
chandise and 799 merchandise 
classifications. Combine it with 
a good database unit inventory 
system and you're set. If anyone 
would like further information 
please call me in Phoenix at 602- 
277-5711. Or read about the 
entire Business Enhancement 
Software system in the Commo- 
dore Software Encyclopedia. C 
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Gives Your Business 
an Important Edge 

Using a modem you can access 

up-to-the-minute information that 

can help you tune your decision^ making 

process and manage your business better. 


" »■'-'■•; ByWaltKutz 

BusinessComputer'Systems Product Manager 
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In today's business world, "next 
morning" information is no 
longer satisfactory. Today's busi- 
ness people must have up-to- 
the-minute data in order to gain an 
edge in the marketplace. Your 
computer, used with a modem, 
can provide this data by giving you 
access to huge national telecom- 
munications networks, and thus 
increase management's ability to 
respond quickly when changes 
occur. 

Information for the business 
community is stored in data bases 
that are accessed through tele- 
communications "time-sharing" 
systems. Some of the time-sharing 
systems available to the microcom- 
puter user are CompuServe, Dow 
Jones Portfolio Management Sys- 
tem, Dun & Bradstreet (Dunsprint), 
LP. Sharp Associates, Inc. and The 
Source. I would like to explore 
just two of these in this article: 
Dun & Bradstreet and LP. Sharp 
Associates. 

Dun & Bradstreet's 
Dunsprint System 

Dun & Bradstreet is one of 
a number of national business 
credit-reporting agencies. Their 
reports provide credit executives 
with objective, up-to-date pay- 
ment information. This mutual 
exchange of information among 
credit executives is essential in 
today's business community. 
Computers now provide the most 
efficient, economical method for 
exchange of this information. For 
instance, Commodore's own 
national credit department is 
currently using the SuperPET and 
a Universal Data System 1200- 
baud modem to access Dun & 
Bradstreet's Dunsprint system. 
The major benefit has been a 
nearly 30% reduction in the cost 
of each report. 

The information in each 
Dunsprint file is printed on a report 
specifically created to best display 
the information contained in that 
file. The format was designed by 
credit experts working directly with 
experienced technical personnel. 
Requests for reports are contained 
in the central file and are highly 
confidential. Elaborate procedures 


to assure information security are 
in effect at all times and access 
and exposure to credit files, equip- 
ment and programs are strictly 
controlled. The files are available 
only to qualified users who have 
a security code or password and 
a special account number. 

LP. Sharp Associates, Inc. 

LP Sharp Associates is a private 
Canadian software and computer 
time-sharing company, founded 
in 1964. Users of the LP Sharp 
system have access to a growing 
list of publicly available data bases 
that are of interest to a variety of 
industries. The public data bases 
are grouped into five major cate- 
gories: economics, finance, aviation, 
energy and insurance. These public 
data bases generally contain his- 
torical-numeric data called "time 
series" data. The number of time 
series contained in each data 
base varies from several hundred 
to several million, with the total 
number available exceeding 
twenty million. 

With access to this type of data 
base the potential number of re- 
ports you can obtain is staggering. 
As an example, in the areas of ec- 
onomics and finance, over 28,000 
monthly, quarterly and annual 
time series reports are available 
in the Internationa! Financial Sta- 
tistics data base compiled by the 
International Monetary Fund for 
over 170 countries and country 
groupings. In addition, aggregate 
data for the world and over fifty 
selected regions is provided in this 
data base. Categories covered in- 
clude exchange rates, interna- 
tional liquidity, banking, interest 
rates, prices and production, 
commodities, national accounts, 
government spending and inter- 
national transactions. Annual 
series date back to 1948, quarterly 
to 1957 and monthly to 1965. 

For those organizations asso- 
ciated with the aviation industry, 
the ICAO (International Civil Avi- 
ation Organization) data base pro- 
vides international airline traffic 
statistics for over 600 airlines and 
300 airports. The data is collected 
by the ICAO and is updated yearly, 
typically in October of the follow- 
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ing year. Other segments of the 
LP Sharp aviation data base in- 
clude Form 41 Data Base, ER586 
Data Base, OAG and T6 Charter 
Data Base. 

The energy data base includes 
such information as Quarterly Oil 
Statistics, API Weekly Statistical 
Bulletin, Liquified Petroleum Gas 
Report, Fuel Oil by Sulfur Content 
and much more. The insurance 
data base includes an actuarial 
data base containing primitive 
mortality information on insured 
lives, annuitants and the general 
population taken from over 200 
tables published by regulatory 
actuarial bodies. 

Electronic Mail 

In addition to accessing these 
many data bases using their com- 
puter and modem, businesses 
can also gain access to another ser- 
vice they will undoubtedly find 
very valuable — electronic mail. 
Electronic mail is a medium of 
communication the likes of which 
the world has not seen before. 
Comparing it to the telephone or 
telex is missing the point. Its real 
strength lies in its ability to provide 
managers with all the information 
they need about everything that 
is happening everywhere — the 
direction in which other members 
of management are thinking and 
blow-by-blow accounts of decision- 
making processes — all without 
the need for a telephone or inter- 
minable meetings. 

The electronic mailbox is a 
means of communication between 
people, not places. So the code 
assigned to an individual is the 
"address" to which a message is 
sent. The electronic mailbox is, 
therefore, completely removed 
from geography, so users can 
access mail from wherever they 
happen to be at the time. 

The information in this article is 
far from inclusive. In fact, it shows 
just a tiny fragment of what is 
available to businesses using tele- 
communications time-sharing 
systems. But you can undoubtedly 
see that even the few services I've 
mentioned here are of enormous 
use to many different types of 
businesses. How about yours? C 
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How can you have a comput- 
erizedbusiness special without 
a stock market simulation? You 
can't. So here's my version of the 
popular simulation. You get $5000 
and 52 weeks to make your mil- 
lions playing the stock market. I 
have set out to change the one 
most annoying feature of the 
simulations that I've seen. The 
amount that each stock changed 
in price and the direction of that 
change is always randomly gener- 
ated. Now how can they call that 
a simulation? If the stock market 
actually changed randomly, it 
would be like a big lottery with 
people taking random chances on 
random changes. In real life there 
are economic principles which 
guide the changes of the various 
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Simulation 


By JimtSracely 

What happens to the price of Fram 

Bicycle stock if the Oliv Oil Company 

raises its prices? Can you make money 

on Jim's Commodore Stock Exchange? 




stocks. I have incorporated just a 
little of that into this program to 
allow a more realistic simulation. 
There are five companies com- 
peting in this program with shares 
of each selling for $50 at the begin- 
ning of the program. The relation- 
ships between the companies and 
the price of their stock is relatively 
simple. There are two oil compa- 
nies; when one goes up the other 
goes down (makes sense). There 
are two car companies; when the 
oil shares go up the car shares go 
down (who wants to buy a new 
car when gasoline is $1.50 a 
gallon?). The last company is a 
bike manufacturer; when the net 
change of oil and car shares is up, 
the bike shares go down (the more 
that people are driving, the less 


they are biking). 

To create these interdepen- 
dences, I used a random seeding 
method. This means that the first 
change and direction (for oil com- 
pany 1) is randomly generated 
and this is used as a seed for the 
change of the second oil company. 
The sum of the first two changes is 
used as a seed for the total of the 
second two changes (the car com- 
panies). Then the sum of the first 
four changes is used as a seed for 
the last change (the bike manu- 
facturer). One of the interesting 
side effects of using this method 
is that the size and randomness 
of the changes decrease through 
the five stocks. If you want to take 
a chance on the "big score" put 
all your money on the first stock. 
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You've got even odds on making 
a lot or losing a lot. If you want 
to be more of a conservative, put 
your money on the last stock. 
Your money is relatively stable 
here. Don't count on making a kill- 
ing, but if you lose some money 
it won't be much. Play the field 
any way you want and see how 
good your market instincts are. 
Subroutines perform each of 
the major calculations, inputs, and 
displays of the program. There are 
subroutines to display each of the 
three program screens: Stock 
Market Screen at 400, Portfolio 
Screen at 721 and Broker's Win- 
dow at 800. The main calculation 
subroutine is in lines 8 through 
170. This subroutine calculates 
the weekly changes for each of the 


stocks. Line 195 performs some 
housekeeping by jumping to sub- 
routines that round off numbers 
to the correct number of decimal 
places, check for high and low 
values of each stock and update 
the current value of any previously 
purchased shares. Lines 900 to 
960 are the subroutine for buying 
and selling stocks. The subroutine 
beginning at 200 ends the pro- 
gram after 52 weeks. 

The following list shows all of 
the variables in the program with 
their uses. The subscripted vari- 
ables each have five subscripts, 
one for each company. 

N${ ) = Names of companies 
A$ ( ) = Abbreviated names of 
companies 




^ 






Illustration- 

-JackFreas 

ST() 

= Current price of stock 

L() 

= Lowest price of stock 

H() 

= Highest price of stock 

NO 

= Number of shares 


owned 

P() 

= Purchased value of 


shares 

CO 

= Current value of 


shares 

CS 

= Cash on hand 

TT 

= Total assets 

W 

= Week number 

D1-D5 

= Weekly change of 


each stock 

DT 

= SumofDlandD2 

BC 

= Background color 

N$,Z$,A$,R$,B$,A,B,X = In- 

put statement and miscellaneous 

variables 
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Stock Market Simulation 


1 REM ***STOCK MARKET SIMULATION*** 

2 REM ***WRITTEN BY JIM GRACELY*** 

3 N$(l)="OLIV OIL" :N$(2) ="BODY OIL" : N$ (3 ) ="ODOM MOTORS":N$ 
(4)="MILLI MOTORS" 

4 N$(5)="FRAM BIKES":A$(1) ="0. OIL" : A$ ( 2) ="B . OIL" 
:A$(3}="0. MOTORS" 

5 A$(4)="M. M0T0RS":A$(5)="F. BIKES" 

6 FOR X=l TO 5:ST(X) =50:L{X) =50:H (X) =50:NEXT:W=0 
:CS=5000:BC=53281:POKE BC-1,0 

7 GOTO 704 

8 REM ***CALCULATIONS*** 

9 REM ***FIRST TWO*** 

10 D1=RND(1)*10 

20 D1=INT{D1*10)/10 

30 S=SGN( (RND(l) *6)-3) 

40 D1=D1*S 

50 ST(1)=ST(1)+D1 

55 IF ST(1)<0 THEN ST (1) =ST (1) -Dl 

60 D2=~(INT(D1*RND(1)*10)/10) 

70 ST{2) =ST(2) +D2 

75 IF ST(2)<0 THEN ST ( 2) =ST { 2) -D2 

80 REM ***SECOND TWO*** 

90 DT=D1+D2 

100 D3=-DT/(RND(l)+,50) 

120 D3=INT(D3*10)/10 

130 D4=INT (RND (1) *D3*10)/10 

140 ST(3) =ST(3)+D4 

145 IF ST(3)<0 THEN ST ( 3) =ST ( 3 ) -D4 

150 ST(4)=ST{4) +(D3-D4) 

155 IF ST(4)<0 THEN ST (4) =ST (4 ) - (D3+D4 ) 

157 REM ***LAST ONE*** 

160 D5 = INT( (DT+D3)*RND(1)*20)/10 

165 ST(5) =ST(5)+D5 

170 IF ST{5)<0 THEN ST (5) =ST ( 5) -D5 

195 GOSUB 510:GOSUB 310:GOSUB 610:GOSUB 405 

199 IF W<52 THEN W=W+1: RETURN 

200 REM ***ENDING*** 

210 PRINT" [DOWN] AFTER 52 WEEKS (1 YEAR) THIS IS HOW THE" 

220 PRINT"STOCKMARKET STANDS [DOWN3] " 

230 PRINT"PRESS THE SPACE BAR TO SEE" 

235 PRINT"YOUR FINAL TOTALS" 

240 GET Z$:IF Z$=""THEN 240 

250 IF Z$<>" "THEN 240 

260 F=l: GOSUB 722 

2 65 TT=INT( ( (TT+CS) -5000) *10 0)/100 

270 IF TT>=0 THEN T$="MADE" 

280 IF TT<0 THEN TT=-TT: T$="LOST" 

290 PRINT" [DOWN2] HOPE YOU HAD FUN!" 
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295 PRINT"YOU "T$" $"TT" ! ! " 

297 GET A$:IF A$=""THEN 297 

298 POKE BC-l,14:POKE BC,6:PRINT CHR$ ( 154 ) CHR$ ( 147) : END 
300 REM ***LOWEST/HIGHEST CHECK*** 

310 FOR X=l TO 5 

320 IF ST{X)<L(X)THEN L(X)=ST(X) 

330 IF ST{X) >H (X)THEN H{X)=ST(X) 

340 NEXT:RETURN 

400 REM ***STOCK MARKET SCREEN*** 

405 POKE BC,12:PRINT CHR$(5) 

410 PRINT" [CLEAR, RVS ,SPACE9] ***STOCK MARKET*** " ; 

412 FOR X=l TO 40:PRINT" [RVS]- [RVOFF] "; : NEXT 

413 PRINT" [RVS]WEEK — > [RVOFF] "W 

415 PRINT" [DOWN2, RVS] STOCK [RVOFF] "," [RVS] LOW [RVOFF] 

"," [RVS] HIGH [RVOFF]"," [RVS] PRESENT [RVOFF] " 
4 20 FOR X=l TO 5 

4 30 PRINT" [DOWN] "A$(X) ,L (X) ,H (X) , ST (X) 
440 NEXT:RETURN 

500 REM ***CONTROL DECIMAL PORTION*** 
510 FOR X=l TO 5 
520 ST(X)=INT(ST(X)*10)/10 
530 P(X)=INT(P(X)*100)/100 
540 NEXT:RETURN 

600 REM ***UPDATE CURRENT VALUE*** 
610 FOR X=l TO 5 
620 C(X)=ST(X)*N(X) 
630 NEXT:RETURN 
700 REM ***START OF MAIN ROUTINE*** 

704 GOSUB 10:RS="" 

705 PRINT" [DOWN2] DO YOU WANT TO VIEW YOUR PORTFOLIO ( Y/N) ": INPUT R$ 
710 IF LEFT$(R$,1)="N"THEN 704 

720 IF LEFT$(R$,1) <>"Y"THEN PRINT" [UP5] ";: GOTO 705 

721 REM ***PORTFOLIO SCREEN*** 

722 POKE BC,14:PRINT CHR$(31) 

725 PRINT" [CLEAR, RVS, SPACE13] PORTFOLIO "; 

726 FOR X=l TO 40:PRINT" [RVS] + [RVOFF] "; :NEXT 

730 PRINT" [DOWN3, RVS] STOCK [RVOFF]"," [RVS] SHARES [RVOFF] ", " 

[RVS] PURCH [RVOFF] " , " [RVS] CURRENT [RVOFF] " 
735 PRINT, ," [RVS] VALUE [RVOFF] "," [RVS] VALUE [RVOFF] " 
740 TT=0:PRINT" [DOWN] ":FOR X=l TO 5 
750 PRINT A$(X) ,N(X) ,P(X) ,C(X) 
755 TT=TT+C(X) 
760 NEXT 

770 PRINT" [DOWN] CASH $",,,CS 
775 FOR X=l TO 38 : PRINT"?" ; : NEXT 
780 PRINT:PRINT"TOTAL $",,,TT+CS 
785 IF F=l THEN RETURN 
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790 PRINT" [DOWN2]WOULD YOU LIKE TO MAKE ANY CHANGES (Y/N)" 

:R$="": INPUT R$ 
795 IF LEFT? (R$,l) ="N"THEN 704 

797 IF LEFT$ (R$, 1) <>"Y"THEN PRINT" [UPS] ";: GOTO 790 
800 REM ***BROKER'S WINDOW*** 
803 POKE BC,1:PRINT CHR$(144) 

805 PRINT" [CLEAR, RVS , SPACE 11] BROKER ' S OFFICE [RVOFF] 

807 FOR X=l TO 40 : PRINT" [RVS ]* [RVOFF] ";: NEXT 
810 PRINT:PRINT" [DOWN3,SPACE3,RVS]STOCK[RVOFF] ", ," 

[ RVS ] SHARES [ RVOFF ] " , 
" [RVS] PRICE [RVOFF, DOWN2] " 
820 FOR X=l TO 5 

830 PRINT" [RVS] "X" [RVOFF] "N$ (X) ,N (X) ,ST(X) 
840 NEXT 

850 PRINT" [DOWN2] YOU HAVE $"CS" ON HAND" 
860 PRINT" [DOWN]WHICH STOCK (1-5) DO YOU WANT":PRINT 

"TO CHANGE (0 TO EXIT) " 
: INPUT A$ 
870 A=VAL(A$):IF A<0 OR A>5 THEN PRINT" [UP4] ";: GOTO 860 
880 IF A=0 THEN 704 

890 PRINT" [UP3] YOU HAVE ENOUGH MONEY TO BUY " 
892 N$=STR$(INT(CS/ST(A) ) ) 
895 PRINT" "N$" SHARES 
900 REM ***BUYING AND SELLING*** 
910 PRINT"ENTER NUMBER OR SHARES THAT YOU WISH TO BUY 

(+)/SELL(-) ": INPUT B$ 
920 B=VAL(B$):IF B>INT (CS/ST (A) ) OR B< (-N (A) ) THEN PRINT 

" [UP3] "; :GOTO 910 
930 IF B<0 THEN P (A) =P (A) + (P (A) /N (A) ) *B 
940 IF B>0 THEN P (A) =P (A) +ST (A) *B 

9 50 N(A)=N(A) +B:CS=CS-ST(A)*B:CS=INT(CS*100)/100 
960 GOTO 805 
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Computers Help Your Business 

Business Software for 
Commodore Computers 

(Continued from page 40) 


Available 
From 


Capabilities 

T/ 



System: Commodore 64 


Commodore 
Dealers 

Easy Calc 64 

64 

1541 or 
Datassette 


X 
















Easy Plot 64 

64 

1541 or 
Datassette 


X 
















Easy Finance 64 

64 

1541 or 
Datassette 




x 














Easy Schedule 64 

64 

1541 or 
Datassette 


X 
















Easy File 64 

64 

1541 or 
Datassette 



* 














X 

Easy Script 64 

64 

1541 or 

Datassette 
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Business Software for 
Commodore Computers 


Available 
From 


Capabilities 


Program 
Name 


Computer Drive 



/ ftf / ,*• A A /J 
f fffli/f/f/J/f/ 



Commodore 
Dealers 

(continued) 


Powerbyte 


TOTL. Software 


RAK Electronics 


Word Machine 


Name Machine 


Easy Mail 64 


General Ledger 


64 


1541 or 
Datassette 


64 


1541 or 
Datassette 


64 


1541 or 
Datassette 


64 


1541 


Receivable/Billing 


64 


1541 


Accounts Payable/ 
Checkwriting 


64 


Payroll 


Inventory 
Management 


The Billing Solver 


64 


64 


64 


Cash Flow Model 


64 


Predictor-Linear 
Regression 


Depredator 


Statistics Sadistics 


64 


64 


64 


Taxman 


64 


Net Worth 
Statement 


64 


Investment 
Analyst 


64 


Stock Ticker 
Tape 


64 


Super Broker 


64 


Profit Sharing 

Plan 


64 


Lease/Buy? 


Syndicator 


Order Tracker 


The Bidder — 
My Profit Margin 


Business 
Calendar 


64 


64 


1541 


1541 


1541 


1541 


1541 


1541 


1541 


1541 


1541 


1541 


1541 


1541 


1541 


1541 


1541 


64 


64 


1541 


1541 


1541 


64 1541 


Client Tickler 


64 


TOTL. Time 
Manager 


Research 
Assistant 


Sales/Expense 


64 


1541 


1541 


1541 


64 1541 or 

Datassette 
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Available 
From 


Capabilities 


Program 
Name 


Computer; Drive 



Abacus Software 


Quick Chart 


64 


1541 or 
Datassette 


Cyberia, Inc. 


Cyber-Farmer 


64 


1541 


System: VIC 20 


Commodore 
Dealers 

VIC File 

VICw/ 

16K 

expansion 

1541 



X 



X 












VIC Writer 

VICw/ 

8K 

expansion 

1541 

















X 

Simplicalc 

VICw/ 

8K 

expansion 

1541 




X 














TOTL. Software 

TOTL. Time 
Manager 

VICw/ | 
8K Datassette 
expansion 


X 
















Research 
Assistant 

VIC w/ 

8K 

expansion 

Datassette 



X 















TOTL. Label 











X 
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A Tale of Two Businesses Continued 


This is a sample of what Marty's program prints out 
after he enters all his data. 


SMI PPER : LOUIS 


OFFER 
BERHRRD 
FF= .15 


EORDERUX 






FOE 

FOI 


NV 

IN STORE 

VINT 

WINE 



FF 

* 


LANDED 

* 

79 

CHRTERU 

PHELRH 

SEGUR 

5S9. 

00 

90. 

11 

94. 

79 

106. 

29 

60 

CHRTERU 

PHELRN 

SEGUR 

326 

00 

51 

45 

56. 

13 

62 

98 

81 

CHRTERU 

PHELRN 

SEGUR 

450. 

00 

69. 

6S 

74. 

36 

OO 

36 

PRUILLflC 










76 

CHRTERU 

CROIZET ERGES 

698 

00 

106. 

13 

110. 

81 

122 

82 

77 

CHRTERU 

CROIZET BRGES 

388 

00 

68. 

56 

65. 

24 

73 

13 

79 

CHRTERU 

CROIZET ERGES 

543. 

00 

83. 

35 

SS. 

03 

93 

70 

81 

CHRTERU 

CROIZET ERGES 

465 

00 

71, 

88 

76. 

56 

85 

S3 

75 

CHRTERU 

EUHRRT 

MILON 

1473 

00 

220 

86 

224 

74 

242 

98 

79 

CHRTERU 

DUHRRT 

MILON 

S53 

00 

128. 

0"? 

v «— 

133 

68 

147 

13 

80 

CHRTERU 

EUHRRT 

MILON 

527 

00 

81. 

00 

85 

68 

36 

86 

81 

CHRTERU 

EUHRRT 

MILON 

651 

00 

39 

23 

103 

91 

114 

48 

70 

CHRTERU 

FORTS 

.RTOUR 

2179 

00 

322 

cr-~i 

327. 

20 

0*5*3 

81 

73 

CHRTERU 

FORTS 

.RTOUR 

853 

00 

128 

92 

133 

60 

147 

13 

74 

CHRTERU 

FORTS 1 

.RTOUR 

'mifmf '- 1 

00 

106 

13 

110 

81 

4 nn 

02 

76 

CHRTERU 

FORTS 1 

_RTOUR 

853 

00 

128 

92 

133 

60 

147 

13 

74 

CHRTERU 

GRRNE 

^UV LRCOSTE 

589 

00 

98 

11 

94 

79 

186 

29 

75 

CHRTERU 

GRAND 

S UV LRCOSTE 

1163 

00 

174 

49 

179 

17 

195 


78 

CHRTERU 

GRRNE 

°UV LRCOSTE 

1008 

.00 

151 

78 

156 

38 

178 

64 

79 

CHRTERU 

GRRNE 

S UV LRCOSTE 

853 

.00 

128 

92 

133 

68 

147 

13 

80 

CHRTERU 

GRRNE 

»UV LRCOSTE 

450 

00 

69 

68 

74 

36 

83 

36 

81 

CHRTERU 

GRRNE 

»UV LRCOSTE 

713 

00 

103 

34 

113 

02 

124 

45 

76 

CHRTERU 

HRUT BRTRILLEV 

775 

00 

117 

45 

122. 

13 

134 

49 

78 

CHRTERU 

HRUT BRTRILLEV 

853 

00 

128 

92 

133 

68 

147 

13 

79 

CHRTERU 

HRUT BRTRILLEV 

651 

00 

39 

ii^-l 

103 

91 

114 

40 

80 

CHRTERU 

HRUT BRTRILLEV 

419 

08 

65 

12 

69 

80 

78 

24 

81 

CHRTERU 

HRUT BRTRILLEV 

620 

00 

94. 

67 

99. 

35 

109 

38 

69 

CHRTERU 

LRFITE 

ROTHSCHILD 

2480 

00 

368. 

09 

372. 

r r 

483 

10 

71 

CHRTERU 

LRFITE 

ROTHSCHILD 

589G 

00 

369. 

36 

874 

04 

936 

37 

75 

CHRTERU 

LRFITE 

ROTHSCHILD 

6200. 

00 

914. 

93 

919. 

61 

93'z>. 

19 

76 

CHRTERU 

LRFITE 

ROTHSCHILD 

4340. 

00 

641. 

51 

646. 

19 

692. 

24 

78 

CHRTERU 

LRFITE 

ROTHSCHILD 

5425. 

00 

881. 

00 

805, 

68 


13 

79 

CHRTERU 

LRFITE 

ROTHSCHILE 

3565. 

00 


58 

532. 

26 

578. 

13 

80 

CHRTERU 

LRFITE 

ROTHSCHILE 

no^ir 

00 

345. 

30 

349. 

93 

J ( 8 . 

45 

A 1 

o 1 

CHRTERU 

LRFITE 

ROTHSCHILD 

3255. 

08 

482. 

01 

486. 

69 

526. 


67 

CHRTERU 

LRTOUR 


3375. 

00 

573. 

15 

577. 

83 

619. 

01 

78 

CHRTERU 

LRTOUR 


5890. 

00 

869. 

36 

874. 

04 

936. 

37 

71 

CHRTERU 

LRTOUR 


4340. 

80 

641. 

51 

646 . 

19 

692. 

24 

73 

CHRTERU 

LRTOUR 


1 Q'T'O 
1 JOO, 

00 

238. 

41 

293. 

09 

316. 

92 

74 

CHRTERU 

LRTOUR 


2325 . 

00 

345. 

38 

349. 

98 

373. 

45 

76 

CHRTERU 

LRTOUR 


3255. 

00 

432. 

01 

486. 

63 

526. 

32 

79 

CHRTERU 

LRTOUR 


3255. 

00 

432 . 

01 

486. 

63 

526. 

o*j 

80 

CHRTERU 

LRTOUR 


1628. 

00 

242. 

84 


52 

267. 

63 

81 

CHRTERU 

LRTOUR 


2863. 

00 

425. 

12 

429. 

S0 

464. 

79 

75 

CHRTERU 

LVNCH ERGES 

1628. 

00 

242. 

84 

247. 

52 

267. 


76 

CHRTERU 

LVNCH ERGES 

1085. 

00 

163. 

02 

167. 

70 

183. 

00 

< ? 

CHRTERU 

LVNCH ERGES 

v 1 1 C i 

00 

78. 

79 

83. 

47 

Clf5 i 

59 

78 

CHRTERU 

LVNCH BRGES 

1054. 

00 

158. 

47 

163. 

15 

1 7b> . 

03 

79 

CHRTERU 

LVNCH BRGES 

775. 

00 

117. 

45 

122. 

13 

134. 

49 
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SH I PPER 


L,OI 


OFFER 


BERNRRD 


BORDEAUX 


FF= . 15 


VINT 
S3 
81 
75 
76 
78 
79 
80 
81 
73 
75 
76 
77 
78 
79 
80 
81 
71 
74 
75 
7t i 
77 
78 
79 
80 
SI 


70 
74 

75 
76 
79 
88 
81 
76 
78 
79 
80 
81 
67 
70 
71 
73 
74 
75 
76 
78 
79 
30 


WINE 
CHATEAU 

CHflTEfll. 
CHflTEfll 

CHflTEfll 
CHflTEfll 
CHflTEfll 
CHATEAU 
CHflTEfll 
CHflTEfll 
CHflTEfll 
CHflTEfll 
CHflTEfll 
CHflTEfll 
CHflTEfll. 
CHflTEflU 
CHATEAU 
CHflTEfll 
CHflTEfll 
CHflTEfll. 
CHflTEfll. 
CHATEAU 
CHflTEfll 
CHATEAU 
CHflTEfll 
CHflTEfll 
:T. 
CHflTEfll 
CHflTEfll 
CHflTEfll 
CHflTEfll 
CHATEAU 
CHATEAU 
CHflTEfll. 
CHflTEfll 
CHflTEfll 
CHATEAU 
CHflTEfll 
CHflTEfll 
CHflTEfll. 
CHflTEfll 
CHATEAU 
CHATEfli. 
CHflTEfll 
CHflTEfll. 
CHATEAU 
CHATEfli 
CHflTEfll 
CHflTEflU 
CHflTEflU 


LVNCH BflOES 
LVHCH BflGES 
MOUTOH ROTHSCHILD 
MOUTON ROTHSCHILD 
NOUTOH ROTHSCHILD 
MOUTON ROTHSCHILD 
MOUTOH ROTHSCHILD 
MOUTOH ROTHSCHILD 
PICHON BARON 
PICHON BARON 
PICHON BARON 
PICHON BARON 
PICHON BARON 
PICHON BARON 
PICHON BARON 
PICHON BARON 
PICHON LALANDE 
PICHON LALANDE 
PICHON LALANDE 
PICHON LALANDE 
PICHON LALANDE 
PICHON LALANDE 
PICHON LALANDE 
PICHON LALANDE 
PICHON LALANDE 
ULIEN 
BEVCHEVELLE 
EEVCHEVELLE 
BEVCHEVELLE 
EEVCHEVELLE 
BEVCHEVELLE 
EEVCHEVELLE 
EEVCHEVELLE 
BEVCHEVELLE 
BRENAIRE DUCRU 
BRENflIRE DUCRU 
BRENAIRE DUCRU 
BRENAIRE DUCRU 
BRENflIRE DUCRU 
DUCRU EEflUCAILLOU 
DUCRU EEflUCAILLOU 
DUCRU EEflUCAILLOU 
DUCRU EEflUCAILLOU 
DUCRU EEAUCAILLOU 
DUCRU EEAUCAILLOU 
DUCRU EEAUCAILLOU 
DUCRU EEAUCAILLOU 
DUCRU EEAUCAILLOU 
DUCRU EEAUCfllLLOU 


FOE 

FOE 

HV 

IN STORE 

FF 

* 


LANDED 

$ 

512 

00 

78 

79 

S3 

47 

93 

59 

729 

00 

110 

69 

115 

37 

127 

84 

5890 

00 

369. 

36 

874 

04 

936 

37 

4650 

00 

6S7. 

OS 

691 

76 

741 

07 

3720 

00 

558. 

87 

555 

05 

594. 

59 

2713 

00 

402. 

34 

407 

92 

440 

14 

1628 

00 

242. 

84 

247 

52 

267 

63 

2790 

00 

413. 

66 

418 

34 

452 

39 

713 

00 

10S. 

34 

113 

02 

124. 

45 

1623 

00 

242. 

84 

247 

52 

267. 

63 

930 

00 

140. 

24 

144. 

92 

159. 

60 

527 

00 

81. 

00 

35 

6S 

96. 

06 

930 

80 

140. 

24 

144 

92 

159. 

60 

682 

00 

183. 

78 

108. 

46 

119. 

43 

543 

00 

83. 

35 

99 

03 

98. 

70 

678 

00 

103. 

19 

107. 

37 

118. 

78 

I860. 

00 

276. 

95 

281. 

63 

304. 

52 

620 

00 

94, 

67 

99. 

35 

109. 

38 

1938. 

00 

238. 

41 

293. 

09 

316. 

92 

1318. 

00 

197. 

27 

201. 

95 

218. 

34 

589. 

00 

98. 

11 

94. 

79 

106. 

29 

1938. 

00 

288. 

41 

293. 

09 

316. 

92 

1194. 

00 

179. 

05 

183. 

73 

200. 

58 

527. 

88 

81, 

00 

0=; 

68 

96. 

06 

930. 

00 

140. 

24 

144. 

92 

159. 

60 

1395. 

00 

208. 

59 

213. 

27 

238. 

58 

2480. 

08 

363. 

09 

372. 

f f 

403. 

10 

713. 

00 

108. 

34 

113. 

02 

124. 

45 

2325. 

00 

345. 

38 

349. 

98 

37S. 

45 

1248, 

00 

185. 

31 

190 

49 

207. 


399 

00 

135. 

68 

140 

36 

154. 

58 

543 

00 

S3. 

35 

88 

83 

93. 

70 

837 . 

00 

126. 

57 

131. 

25 

144. 

54 

930. 

00 

140. 

24 

144. 

92 

159. 

60 

930. 

80 

140. 

24 

144. 

92 

15S. 

60 

775. 

00 

117. 

45 

1 £l£- ■ 

13 

134. 

49 

527. 

00 

81. 

00 

35. 

68 

96. 

06 

©62 

00 

103. 

78 

188. 

46 

119. 

43 

1 "*700 

i r C"-' 

00 

265. 

63 

270. 

31 


27 

3100. 

80 

459. 

J? CI 

463. 

91 

501. 

68 

2243. 

00 

333. 

QO 

338. 

66 

366. 

21 

1035. 

00 

163. 

02 

167. 

70 

183. 

00 

930. 

08 

140. 

24 

144. 

92 

159. 

60 

^.'-i^-.Ej 

00 

345. 

30 

349. 

98 

378. 

45 

1318. 

00 

197. 

d i 

201. 

95 

218. 

34 

1783. 

08 

265. 

63 

270. 

31 

292. 

27 

1163. 

00 

174. 

49 

179. 

17 

195. 

52 

620. 

00 

94. 

67 

99. 

35 

109. 

38 
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Advanced Bit Mapped Graphics (Continued from page 33) 


several (not very imaginative, I'm afraid) examples 
of using the high -resolution routines. Each exam- 
ple is less than ten BASIC lines long, and a 
drawing of each is included in Figure 6 (which inci- 
dentally were done with a digital plotter driven 
by our straight line algorithm!). In every case BASIC 
is the speed-limiter. When you create your own 
programs, lines 10-100 from the example program 


should always be present as a preamble, but that 
line 10 (written for disk users, but I believe simply 
adaptable to tape) should be deleted after the 
first RUN. Tape users may be better off loading the 
machine code portion prior to loading HRTEST. 
Note also, because of my use of mnemonics 
to access the several routines, the variable names 
IN, RS, CL, DR, PX, and MV are reserved and 


n 





Figure 6. (Continued) 
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can not be used elsewhere. 

The way the entry points are defined (by way 
of fixed jump vectors), it will not be necessary to 
change your programs, even if major modifications 
were to be made in the assembly source, as I 
may do in possible future articles on graphics. 
Even just staying within the high-resolution mode 
(no sprites yet), there are a number of topics that 


could be covered, such as high-speed circle and 
arc drawing, split-screen effects, colors, high-res 
character and shape sets, vector graphics, smooth 
X,Y scrolling of landscapes, animation techniques, 
graphic aids such as light pen input of "rubber band" 
lines, 3-D techniques with hidden line removal, 
or graphic fill! All of these and more are possible 
on the Commodore 64. C 


N. 


N_ 


A 


\/ 




A 


jf 


v 


8 


Figure 6. (Continued) 


Listing #1: Complete Assembly Source Code 


LINE# 

LOC 

CODE 

LINE 


00002 

0000 


r 


00003 

0000 


;** HRSUPP/64 ** 


00004 

0000 


• 


00005 

0000 


ORIGIN = $6000 


00006 

0000 


r 


00007 

0000 


;** EQUATES ** 


00008 

0000 


/ 


00009 

0000 


; SYSTEM ROUTINES 


00010 

0000 


/ 


00011 

0000 


ERROR = $A437 

; PRINT ERROR MESSAGE 


li 
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LINE# 

LOC CODE 

LINE 



00012 

0000 

EVAEXP 

= $AD9E 

; EVALUATE EXPRESSION 

00013 

0000 

CHKCOM 

= $AEFD 

; CHECK FOR COMMA 

00014 

0000 

FLTFIX 

= $B1AA 

;CONVERT TO FIXED IN Y 
(LOW) AND A (HIGH) 

00015 

0000 




00016 

0000 

; VECTORS 


00017 

0000 




00018 

0000 

ERRVEC 

= $0300 

; ERROR ROUTINE 

00019 

0000 

WARMV 

= $0302 

; BASIC WARM START 

00020 

0000 




00021 

0000 

;HI-RES STUFF 


00022 

0000 




00023 

0000 

VIC 

= $D000 

;ADDRESS OF VIC CHIP 

00024 

0000 

HRCTRL 

= VIC+17 

;MODE CONTROL 

00025 

00 

HRMREG 

= VIC+24 

; MEMORY CONTROL 

00026 

0000 

i 



00027 

0000 

SCREEN 

= $0400 

;1K SCREEN 

00028 

0000 

SCREND 

= SCREEN+999 

;LAST SCREEN LOC ' N 

00029 

0000 

BASE 

■ $2000 

;START OF 8K BYT 

00030 

0000 

HRLAST 

= BASE+7999 

;LAST LOC'N 

00031 

0000 

RAM 

= $033C 

;USE CASSETTE BUFFER 

00032 

0000 

/ 



00033 

0000 

;**ZERO PAGE** 


00034 

0000 

r 



00035 

0000 

BYT 

= $FD 

;BYT POINTER 

00036 

0000 

r 



00037 

0000 


*=RAM 


00038 

033C 

r 



00039 

033C 

XI 

* = * + 2 

;X COORDINATE (0 - 319) 

00040 

033E 

X2 

* = * + 2 


00041 

0340 

Yl 

* = * + 2 

;Y COORDINATE (0 - 199) 

00042 

0342 

Y2 

* = * + 2 


00043 

0344 

BITNO 

* = * + ! 

;ON BIT IS PIXEL 

00044 

0345 

DELTX 

* = * + 2 

;X2-X1 

00045 

0347 

DELTY 

* = * + 2 

;Y2-Y1 

00046 

0349 

E 

* = * + 2 


00047 

034B 

T 

*=* + 2 


00048 

034D 

C 

* = *+2 


00049 

034F 

I 

*=* + ! 

;DIRECTION POINTER 

00050 

0350 

TEMP 

* = * + 2 


00051 

0352 

ERVEC 

* = * + 2 

; HOLDS SYSTEM ERROR 
VECTOR 

00052 

0354 




00053 

0354 

; CONSTANTS 


00054 

0354 




00055 

0354 

XMAX=320 


00056 

354 

YMAX=200 


00057 

0354 

COLS=40 

; NUMBER OF COLUMNS/ROW 
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LINE# 

LOC 

CODE 


LINE 



00058 

0354 



CQLOR= 

$50 

; FOREGROUND/BACKGROUND 








= BLACK/GREEN 

00059 

0354 




r 



00060 

0354 





*=ORIGIN 


00061 

6000 







00062 

6000 




; JUMP 

TABLE FOR COVENIENT ENTRY POINTS 

00063 

6000 







00064 

6000 

4C 

90 

62 JINIT 

JMP HRINIT 

; INITIALIZE 

00065 

6003 

4C 

BD 

62 JREST 

JMP HRREST 

; RESTORE 

00066 

6006 

4C 

5B 

62 JCLR 

JMP CLRHR 

;CLEAR SCREEN 

00067 

6009 

4C 

89 

60 JDRAW 

JMP VECPLT 

;DRAW STRAIGHT LINE 

00068 

60 0C 

4C 

EC 

62 JSETPX 

JMP SETPIX 

;TURN ON PIXEL 

00069 

600F 







00070 

600F 




;FALL 

THROUGH TO MOVE 

ROUTINE 

00071 

60 OF 







00072 

600F 




;HRADDR - GIVEN X-COORD (2 BYTES) 

00073 

600F 




;AND Y 

-COORD (1 BYTE) 


00074 

600F 




;CALCULATE BYT ADDRESS 

» AND BITNO 

00075 

600F 







00076 

600F 




;CLOBBERS X, LEAVES Y = 

= 

00077 

600F 







00078 

600F 




I ENTER 

HERE IF FROM BASIC 

00079 

600F 







00080 

600F 

20 

E2 

62 I 

IRMOVE 

JSR GETVAL 

;GET XI 

00081 

6012 

8C 

3C 

03 


STY XI 


00082 

6015 

8C 

3E 

03 


STY X2 

;FOR RNGCHK 

00083 

6018 

8D 

3D 

03 


STA Xl+1 


00084 

601B 

8D 

3F 

03 


STA X2+1 


00085 

601E 

20 

E2 

62 


JSR GETVAL 

;GET Yl 

00086 

6021 

8C 

40 

03 


STY Yl 


00087 

6024 

8C 

42 

03 


STY Y2 


00088 

6027 

8D 

43 

03 


STA Y2+1 


00089 

602A 

20 

C6 

61 


JSR RNGCHK 


00090 

602D 







00091 

602D 




ENTER 

HERE IF XI, Yl 

ARE SET 

00092 

602D 







00093 

602D 

A9 

00 

1 

1RADDR 

LDA #0 

;SET HIGH BYTE TO ZERO 

00094 

602F 

85 

FE 



STA BYT+1 


00095 

6031 

38 




SEC 

;FORM 199-Yl 

00096 

6032 

A9 

C7 



LDA #YMAX-1 


00097 

6034 

ED 

40 

03 


SBC Yl 


00098 

6037 

48 




PHA 

;SAVE RESULT ON STACK 

00099 

6038 

29 

F8 



AND #$F8 

;FORM ROW # 

00100 

6 3A 

OA 




ASL A 

;MULT BY 2 

00101 

603B 

26 

FE 



ROL BYT+1 


00102 

603D 

OA 




ASL A 

;MULT BY 4 

00103 

603E 

26 

FE 



ROL BYT+1 


00104 

6040 

OA 




ASL A 

;MULT BY 8 

00105 

6041 

26 

FE 



ROL BYT+1 



L± 
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LINE* 

LOC 

CODE 

LINE 





00106 

6043 

48 




PHA 



;SAVE ON STACK 

00107 

6044 

8D 

50 

03 


STA 

TEMP 


;AND IN TEMP 

00108 

6047 

A5 

FE 



LDA 

BYT + 1 



00109 

6049 

8D 

51 

03 


STA 

TEMP+1 


;TEMP HAS 8*Y 

00110 

604C 

68 




PLA 



; RESTORE A 

00111 

604D 

OA 




ASL 

A 


;MULT BY 16 

00112 

604E 

26 

FE 



ROL 

BYT + 1 



00113 

6050 

OA 




ASL 

A 


;MULT BY 32 

00114 

6051 

26 

FE 



ROL 

BYT+1 


; (CARRY STILL CLEAR) 

00115 

6053 

6D 

50 

03 


ADC 

TEMP 


;FORM 32+8 ■ 40* 

00116 

6056 

85 

FD 



STA 

BYT 


;INTO BYT 

00117 

6058 

A5 

FE 



LDA 

BYT+1 



00118 

605A 

6D 

51 

03 


ADC 

TEMP+1 



00119 

605D 

85 

FE 



STA 

BYT+1 



00120 

605F 

AD 

3C 

03 


LDA 

XI 


;NOW ADD CHAR 

00121 

6062 

29 

F8 



AND 

#SF8 



00122 

6064 

65 

FD 



ADC 

BYT 



00123 

6066 

85 

FD 



STA 

BYT 



00124 

6068 

AD 

3D 

03 


LDA 

Xl + 1 



00125 

606B 

65 

FE 



ADC 

BYT+1 



00126 

606D 

85 

FE 



STA 

BYT + 1 


; (CARRY STILL CLEAR) 

00127 

606F 

68 




PLA 



;NOW ADD LINE 

00128 

6070 

29 

07 



AND 

#7 


;BY MASKING HIGH BITS 

00129 

6072 

65 

FD 



ADC 

BYT 



00130 

6074 

85 

FD 



STA 

BYT 



00131 

6076 

A5 

FE 



LDA 

BYT+1 


;FINISH BY ADDING BASE 

00132 

6078 

69 

20 



ADC 

#>BASE 



00133 

607A 

85 

FE 



STA 

BYT+1 



00134 

607C 

AD 

3C 

03 


LDA 

XI 


;SET BITNO 

00135 

607F 

29 

07 



AND 

#7 


;IS LOW 3 BITS 

00136 

6081 

AA 




TAX 



;AND INDEX TO TABLE 

00137 

6082 

BD 

29 

63 


LDA 

MSKTB,X 



00138 

6085 

8D 

44 

03 


STA 

BITNO 



00139 

6088 

60 




RTS 



;BYT AND BITNO NOW SET 

00140 

6089 









00141 

6089 




;*** FASTPLOT *** 


00142 

6089 









00143 

6089 




:GRAPHIC SUBROUTINE 

FOR LINE DRAWING 

00144 

6089 




;ON 

320* 

200 HI- 

RES 

MEMORY 

00145 

6089 









00146 

6089 




•ORIGINALLY WRITTEN 

AS VECTOR GENERATOR 

00147 

6089 




FOR HOUSTON INSTRUMENT HIPLOT 

00148 

6089 




[DIGITAL 

, INCREMENTAL PLOTTER 

00149 

6089 









00150 

6089 




•MORE EFFICIENT 

ALGORITHM BY W. MCWORTER 

00151 

6089 




;IN 

BYTE MAY 1981, 

P14 

00152 

6089 









00153 

6089 




:RE- 

-WRITTEN FOR 

MTU 

VISIBLE MEMORY (TM) 

00154 

6089 




•BY 

F. COVITZ, , 

«HJG. 

1981 
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LINE* LOC CODE 


LINE 


00155 

6089 

00156 

6089 

00157 

6089 

00158 

6089 

00159 

6089 

00160 

6089 

00161 

6089 

00162 

6089 

00163 

6089 

00164 

6089 

00165 

6089 

00166 

6089 

00167 

6089 

00168 

6089 

00169 

6089 

00170 

6089 

00171 

6089 

00172 

6089 

00173 

6089 

00174 

6089 

00175 

6089 

00176 

6089 

00177 

6089 

00178 

6089 

00179 

6089 

00180 

6089 

00181 

6089 

00182 

608C 

00183 

608F 

00184 

6092 

00185 

6095 

00186 

6098 

00187 

609B 

00188 

609B 

00189 

609B 

00190 

609B 

00191 

609E 

00192 

609F 

00193 

60A2 

00194 

60A5 

00195 

60A8 

00196 

6 0AB 

00197 

60AE 

00198 

60B1 

00199 

60B2 

00200 

60B5 

00201 

60B8 

00202 

60BB 

00203 

60BE 


20 
8C 
8D 
20 
8C 
8D 


20 
38 
AD 
ED 
8D 
AD 
ED 
8D 
38 
AD 
ED 
8D 
AD 
ED 


E2 
3E 
3F 
E2 
42 
43 


62 

03 
03 
62 

03 
03 


C6 61 


3E 
3C 
45 
3F 
3D 
46 

42 
40 
47 
43 
41 


03 
03 

03 
03 
03 
03 

03 
03 
03 
03 
03 


REVISED NOV. 1982 FOR CBM-64 


***************************** 

* TYPO IN ORIGINAL LETTER * 

* 

* IT READS; AS="RQVWPS " * 

* * * 

*SHOULD BE; A$="RQVWRS " * 

* 
***************************** 

COME IN WITH XI, Yl AND X2,Y2 

AND FIRST PIXEL SET 

I.E. BYT,BYT+1, AND BITNO ARE SET 

VIA CALL TO PIXADR 

ROUTINE DRAWS BEST STRAIGHT LINE 

LEAVES WITH Xl_X2,Yl_Y2 

LEAVES WITH Y=0, X CLOBBERED 
ROUTINE CHECKS FOR OVERFLOW 

**VECPLT** 

ENTER HERE FROM BASIC 


VECPLT JSR GETVAL 

STY X2 

STA X2+1 

JSR GETVAL 

STY Y2 

STA Y2+1 


;GET X-COORD 
;GET Y-COORD 


ENTER HERE IF X2, Y2 ALREADY SET 


VECPL1 JSR RNGCHK 
SEC 

LDA X2 

SBC XI 

STA DELTX 

LDA X2+1 

SBC Xl+1 

STA DELTX+1 
SEC 

LDA Y2 

SBC Yl 

STA DELTY 

LDA Y2+1 

SBC Yl+1 


;CHECK X2,Y2 OVERFLOW 

;FORM DELTX (SIGNED) 


;FORM DELTY (SIGNED) 
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LINE* LOC 


CODE 


LINE 


00204 

60C1 







00205 

60C1 

8D 48 03 


STA 

DELTY+1 



00206 

60C4 

AD 3E 03 


LDA 

X2 

;X1,Y1 X2,Y2 


00207 

60C7 

8D 3C 03 


STA 

XI 



00208 

6 OCA 

AD 3F 03 


LDA 

X2 + 1 



00209 

60CD 

8D 3D 03 


STA 

Xl + 1 



00210 

60D0 

AD 4 2 3 


LDA 

Y2 



00211 

60D3 

8D 40 03 


STA 

Yl 



00212 

60D6 

AD 43 03 


LDA 

Y2 + 1 



00213 

60D9 

8D 41 03 


STA 

Yl + 1 



00214 

6 0DC 







00215 
00216 

60DC 
60DC 


;NOW 

HAVE 

DELTX, DELTY (SIGNED) 


00217 

60DC 


** MOVE ** 



00218 

60DC 







00219 

60DC 


GIVEN DELTX, DELTY 



00220 

6 0DC 


DRAW/MOVE 

THE BEST 

STRAIGHT LINE 


00221 

60DC 







00222 

60DC 

A9 00 I 

10VE 

LDA 

#0 

DETERMINE OCTANT 


00223 

60DE 

8D 4F 03 


STA 

I 



00224 

60E1 

2C 46 03 


BIT 

DELTX+1 

;CHECK DELTX < 


00225 

60E4 

10 17 


BPL 

MV1 



00226 

60E6 

AD 45 03 


LDA 

DELTX 

;CHANGE SIGN 


00227 

60E9 

20 E7 61 


JSR 

COMPL 



00228 

60EC 

8D 45 03 


STA 

DELTX 



00229 

60EF 

AD 46 03 


LDA 

DELTX+1 



00230 

60F2 

20 E8 61 


JSR 

COMPH 



00231 

60F5 

8D 46 03 


STA 

DELTX+1 



00232 

60F8 

A9 02 


LDA 

#2 



00233 

60FA 

8D 4F 03 


STA 

I 



00234 

60FD 

2C 48 03 M 

VI 

BIT 

DELTY+1 

;CHECK DELTY < 


00235 

6100 

10 IB 


BPL 

MV2 



00236 

6102 

AD 47 03 


LDA 

DELTY 



00237 

6105 

20 E7 61 


JSR 

COMPL 



00238 

6108 

8D 47 03 


STA 

DELTY 



00239 

610B 

AD 48 03 


LDA 

DELTY+1 



00240 

610E 

20 E8 61 


JSR 

COMPH 



00241 

6111 

8D 48 03 


STA 

DELTY+1 



00242 

6114 

18 


CLC 




00243 

6115 

AD 4F 03 


LDA 

I 



00244 

6118 

69 04 


ADC 

#4 



00245 

611A 

8D 4F 03 


STA 

I 



00246 

611D 

AE 45 03 M 

V2 

LDX 

DELTX 

;CHECK DELTX-DELTY 


00247 

6120 

EC 47 03 


CPX 

DELTY 

;SET CARRY FOR LOW 

BYTE 

00248 

6123 

AD 46 03 


LDA 

DELTX+1 

;NOW HIGH BYTE 


00249 

6126 

A8 


TAY 


;SET Y = DELTX 


00250 

6127 

ED 48 03 


SBC 

DELTY+1 



00251 

612A 

10 IB 


BPL 

MV3 



00252 

612C 

AD 47 03 


LDA 

DELTY 

; INTERCHANGE DELTX, 

Y 

Li= 







"| 
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LINE* 

LOC 

CODE 


LINE 




00253 

612F 

8D 

45 

03 


STA 

DELTX 


00254 

6132 

AD 

48 

03 


LDA 

DELTY+1 


00255 

6135 

8D 

46 

03 


STA 

DELTX+1 


00256 

6138 

8E 

47 

03 


STX 

DELTY 


00257 

613B 

8C 

48 

03 


STY 

DELTY+1 


00258 

613E 

18 




CLC 



00259 

613F 

AD 

4F 

03 


LDA 

I 


00260 

6142 

69 

08 



ADC 

#8 


00261 

6144 

8D 

4F 

03 


STA 

I 


00262 

6147 

AD 

45 

03 

MV3 

LDA 

DELTX 

;FORM E=-DELTX/2 

00263 

614A 

20 

E7 

61 


JSR 

COMPL 


00264 

614D 

8D 

49 

03 


STA 

E 


00265 

6150 

AD 

46 

03 


LDA 

DELTX+1 


00266 

6153 

20 

E8 

61 


JSR 

COMPH 


00267 

6156 

8D 

4A 

03 


STA 

E + l 


00268 

6159 

38 




SEC 


;CHECK FOR NEGATIVE 

00269 

615A 

30 

01 



BMI 

MV4 


00270 

615C 

18 




CLC 



00271 

615D 

6E 

4A 

03 

MV4 

ROR 

E+l 

;DIVIDE BY 2 

00272 

6160 

6E 

49 

03 


ROR 

E 


00273 

6163 

A0 

00 



LDY 

#0 

;SET Y=0 

00274 

6165 

8C 

4D 

03 


STY 

c 

;SET COUNTER TO ZERO 

00275 

6168 

8C 

4E 

03 


STY 

C+l 


00276 

616B 

F0 

37 



BEQ 

MV7 

;ABSOLUTE BRANCH 

00277 

616D 








00278 

616D 




• ** 

MAIN DRAWING LOOP ** 

00279 

616D 








00280 

616D 

AE 

4F 

03 

MV5 

LDX 

I 

;GET DIRECTION IN X 

00281 

6170 

18 




CLC 


;FORM E=E+DELTY 

00282 

6171 

AD 

49 

03 


LDA 

E 


00283 

6174 

6D 

47 

03 


ADC 

DELTY 


00284 

6177 

8D 

49 

03 


STA 

E 

; FIRST LOW BYTE 

00285 

617A 

AD 

4A 

03 


LDA 

E + l 


00286 

617D 

6D 

48 

03 


ADC 

DELTY+1 


00287 

6180 

8D 

4A 

03 


STA 

E+l 


00288 

6183 

30 

14 



BMI 

MV6 


00289 

6185 

38 




SEC 


;FORM E=E-DELTX 

00290 

6186 

AD 

49 

03 


LDA 

E 


00291 

6189 

ED 

45 

03 


SBC 

DELTX 


00292 

618C 

8D 

49 

03 


STA 

E 


00293 

618F 

AD 

4A 

03 


LDA 

E + l 


00294 

6192 

ED 

46 

03 


SBC 

DELTX+1 


00295 

6195 

8D 

4A 

03 


STA 

E + l 


00296 

6198 

E8 




INX 


;X BUMPED UP ONE 

00297 

6199 

20 

BA 

61 

MV6 

JSR 

OUTPLT 

; OUTPUT ONE MOVE 

00298 

619C 

EE 

4D 

03 


INC 

C 

;BUMP COUNTER UP 1 

00299 

619F 

DO 

03 



BNE 

MV7 


00300 

61A1 

EE 

4E 

03 


INC 

C + l 


00301 

61A4 




■ 





|L 
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00302 

61A4 




;ENTER 

HERE ON 1ST 

PASS 

00303 

61A4 




' 




00304 

61A4 

Bl 

FD 

MV7 

LDA 

(BYT) ,Y 

;TURN ON A POINT 

00305 

61A6 

OD 

44 

03 


ORA 

BITNO 


00306 

61A9 

91 

FD 



STA 

(BYT) ,Y 


00307 

61AB 

AD 

4D 

03 


LDA 

C 

;DONE WHEN C > = DELTX 

00308 

61AE 

CD 

45 

03 


CMP 

DELTX 


00309 

61B1 

AD 

4E 

03 


LDA 

C+l 


00310 

61B4 

ED 

46 

03 


SBC 

DELTX+1 


00311 

61B7 

90 

B4 



BCC 

MV5 


00312 

61B9 

60 




RTS 


;DONE 

00313 

61BA 



i 





00314 

61BA 




** OUTPLT 

** 


00315 

61BA 








00316 

61BA 




OUTPUT AN 

ELEMENTARY MOVE 

00317 

61BA 








00318 

61BA 

8A 


C 

)UTPLT 

TXA 



00319 

61BB 

OA 




ASL 

A 

;MULT BY TWO TO GET INDEX 

00320 

61BC 

AA 




TAX 



00321 

61BD 

BD 

OA 

63 


LDA 

MOVTAB+1 

,X ;GET THE VECTOR 

00322 

61C0 

48 




PHA 


;HIGH BYTE ON STACK 

00323 

61C1 

BD 

09 

63 


LDA 

MOVTAB,X 


00324 

61C4 

48 




PHA 


;LOW BYTE ON STACK 

00325 

61C5 

60 




RTS 


;DO COMPUTED JUMP 

00326 

61C6 








00327 

61C6 




; RETURN VIA RTS TO 

JSR OUTPLT (1) 

00328 

61C6 








00329 

61C6 




;**RNGCHK** 


00330 

61C6 








00331 

61C6 




ICHECK 

X2, 

Y2 FOR OVERFLOW 

00332 

61C6 




; RETURN TO 

CALLING 

PROGRAM ON OVERFLOW 

00333 

61C6 








00334 

61C6 

AD 

3E 

03 I 

RNGCHK 

LDA 

X2 

;CHECK X2, LOW 

00335 

61C9 

C9 

40 



CMP 

#<XMAX 


00336 

61CB 

AD 

3F 

03 


LDA 

X2 + 1 

;CHECK HIGH BYTE 

00337 

6 ICE 

E9 

01 



SBC 

#>XMAX 


00338 

61D0 

BO 

OC 



BCS 

RNG2 

;X2 > XMAX, SO ABORT 

00339 

61D2 

AD 

42 

03 1 

*NG1 

LDA 

Y2 

; CHECK Y2, LOW 

00340 

61D5 

C9 

C8 



CMP 

#<YMAX 


00341 

61D7 

AD 

43 

03 


LDA 

Y2 + 1 

;CHECK HIGH BYTE 

00342 

61DA 

E9 

00 



SBC 

#>YMAX 


00343 

6 IDC 

90 

08 



BCC 

RNG3 

;Y2 < YMAX, SO OK 

00344 

61DE 

20 

BD 

62 I 

*NG2 

JSR 

HRREST 

; RESTORE NORMAL 

00345 

61E1 

A2 

OE 



LDX 

#14 

; ILLEGAL QUANTITY ERROR 

00346 

61E3 

6C 

00 

03 


JMP 

(ERRVEC) 

;FUNNEL THROUGH ERROR 
ROUTINE 

00347 

61E6 

60 


E 

ING3 

RTS 



00348 

61E7 



J 





00349 

61E7 



i 

COMPL 

,H 
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LINE# 

LOC 

CODE 

LINE 




00350 

61E7 







00351 

61E7 



;FORM 

COMPLEMENT OF 

SIGNED NUMBER 

00352 

61E7 



J 1ST ENTER 

AT COMPL 

FOR LOW BYTE 

00353 

61E7 



;THEN 

ENTER AT COMPP 

FOR HIGH BYTE 

00354 

61E7 







00355 

61E7 



;ANSWER IN 

A 


00356 

61E7 







00357 

61E7 

38 


COMPL 

SEC 


;FOR LOW BYTE 

00358 

61E8 

49 

FF 

COMPH 

EOR 

#?FF 

; COMPLEMENT 

00359 

61EA 

69 

00 


ADC 

#0 

;ADD CARRY STATE 

00360 

61EC 

60 



RTS 



00361 

61ED 



* 




00362 

61ED 

20 

32 

62 LL 

JSR LEi 

;GO LEFT AND 








FALL THROUGH TO DOWN 

00363 

61F0 

A5 

FD 

DOWN 

LDA BYT 


00364 

61F2 

29 

07 


AND #7 

;EXAM LOWEST 3 BITS 

00365 

61F4 

49 

07 


EOR #7 

;FLIP THEM 

00366 

61F6 

F0 

08 


BEQ DN2 

;ORIGINAL BYTE WAS 








XXXX111 

00367 

61F8 

E6 

FD 


INC 

BYT 

;ELSE JUST BUMP BY 1 

00368 

61FA 

DO 

11 


BNE 

DN3 


00369 

61FC 

E6 

FE 


INC 

BYT + 1 


00370 

61FE 

DO 

OD 


BNE 

DN3 

; BRANCH ALWAYS 

00371 

6200 

18 


DN2 

CLC 


;ADD 320-7 

00372 

6201 

A5 

FD 


LDA 

BYT 


00373 

6203 

69 

39 


ADC 

#<313 


00374 

6205 

85 

FD 


STA 

BYT 


00375 

6207 

A5 

FE 


LDA 

BYT + 1 


00376 

6209 

69 

01 


ADC 

#>313 


00377 

620B 

85 

FE 


STA 

BYT + 1 


00378 

620D 

60 


DN3 

RTS 



00379 

620E 



/ 




00380 

620E 

20 

48 

6 2 UR 

JSR 

RIGHT 

;FIRST RIGHT THEN 
FALL THROUGH TO UP 

00381 

6211 

A5 

FD 

UP 

LDA 

BYT 


00382 

6213 

29 

07 


AND 

#7 

;CHECK LOW BITS 

00383 

6215 

DO 

OF 


BNE 

UP1 

;IF BYTE WAS NOT XXXXXOOO 

00384 

6217 

38 



SEC 


;ELSE SUBTRACT 320-7 

00385 

6218 

A5 

FD 


LDA 

BYT 


00386 

621A 

E9 

39 


SBC 

#<313 


00387 

621C 

85 

FD 


STA BYT 


00388 

621E 

A5 

FE 


LDA BYT+1 


00389 

6220 

E9 

01 


SBC #>313 


00390 

6222 

85 

FE 


STA BYT+1 


00391 

6224 

DO 

08 


BNE UP3 

; BRANCH ALWAYS 

00392 

6226 

A5 

FD 

UP1 

LDA BYT 

,* DECREMENT BY 1 

00393 

6228 

DO 

02 


BNE UP2 


00394 

6 2 2A 

C6 

FE 


DEC BYT+1 
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00395 

622C 

C6 

FD 


UP2 

DEC 

BYT 


00396 

622E 

60 



UP3 

RTS 



00397 

622F 




r 




00398 

6 2 2F 

20 

11 

62 

UL 

JSR 

UP 

J 1ST UP THEN FALL 
THROUGH TO LEFT 

00399 

6232 

OE 

44 

03 

LEFT 

ASL 

BITNO 

;GO 1 PIXEL LEFT 

00400 

6235 

90 

OD 



BCC 

LF2 

;NO CORRECTION ON 
CARRY CLEAR 

00401 

6237 

2E 

44 

03 


ROL 

BITNO 

;SET BITNO=l AND 
CLEAR CARRY 

00402 

623A 

A5 

FD 



LDA 

BYT 


00403 

623C 

E9 

07 



SBC 

#7 

? (-8 SINCE CARRYIS CLEAR) 

00404 

623E 

85 

FD 



STA 

BYT 


00405 

6240 

BO 

02 



BCS 

LF2 


00406 

6242 

C6 

FE 



DEC 

BYT+1 


00407 

6244 

60 



LF2 

RTS 



00408 

6245 




t 




00409 

6245 

20 

FO 

61 

LR 

JSR 

DOWN 

;1ST DOWN THEN FALL 
THROUGH TO RIGHT 

00410 

6248 

4E 

44 

03 

RIGHT 

LSR 

BITNO 

;GO 1 PIXEL RIGHT 

00411 

6 24B 

90 

OD 



BCC 

RGT1 


00412 

624D 

6E 

44 

03 


ROR 

BITNO 

;SET BITNO=$80 AND 
CLEAR CARRY 

00413 

6250 

A5 

FD 



LDA 

BYT 


00414 

6252 

69 

08 



ADC 

#8 

;ONE CELL RIGHT 

00415 

6254 

85 

FD 



STA 

BYT 


00416 

6256 

90 

02 



BCC 

RGT1 


00417 

6258 

E6 

FE 



INC 

BYT + 1 


00418 

625A 

60 



RGT1 

RTS 



00419 

625B 









00420 

625B 





; CLRHR 




00421 

625B 









00422 

625B 





'CLEARS EXACTLY 8000 

BYTES 

00423 

625B 





! LEAVES Y = X=0 


00424 

625B 









00425 

625B 

A9 

3F 


CLRHR 

LDA 

#>HRLAST 


00426 

625D 

85 

FE 



STA 

BYT + 1 

;INIT. POINTER TO 
LAST PAGE 

00427 

625F 

A9 

00 



LDA 

#0 


00428 

6261 

85 

FD 



STA 

BYT 


00429 

6263 

A8 




TAY 



00430 

6264 

85 

FD 



STA 

BYT 


00431 

6266 

91 

FD 



STA 

(BYT) ,Y 

;THIS ONE DONE 
SEPARATELY 

00432 

6268 

AO 

3F 



LDY 

#<HRLAST 

; START AT BASE+$1F3F 

00433 

626A 

A2 

20 



LDX 

#$20 

;X KEEPS 
TRACK OF PAGES 

00434 

626C 

91 

FD 


CLRHR1 

STA 

(BYT) ,Y 

;PUT IN 0'S 

00435 

626E 

88 




DEY 
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CODE 


LINE 


00436 

626F 

DO 

FB 



BNE 

CLRHR1 


00437 

6271 

C6 

FE 



DEC 

BYT + 1 


00438 

6273 

CA. 




DEX 



00439 

6274 

DO 

F6 



BNE 

CLRHR1 

;DO 3 2 PAGES 

00440 

6276 

60 




RTS 



00441 

6277 








00442 

6277 




;SETCOL 



00443 

6277 








00444 

6277 




•SET FOREGROUND/BACKGROUND COLOR 

00445 

6277 








00446 

6277 

A9 

50 


SETCOL 

LDA 

#COLOR 

; IN 2 NYBBLES 

00447 

6279 

A2 

00 


SETCLO 

LDX 

#0 


00448 

627B 

9D 

00 

04 

SETCL1 

STA 

SCREEN, X 

;DO 4 PAGES 

00449 

627E 

9D 

00 

05 


STA 

SCREEN+$0100 

,x 

00450 

6281 

9D 

00 

06 


STA 

SCREEN+$0200 

rX 

00451 

6284 

E8 




INX 



00452 

6285 

DO 

F4 



BNE 

SETCL1 


00453 

6287 

A2 

E8 



LDX 

#<SCREND+1 

;DO LAST PAGE 

00454 

6289 

9D 

FF 

06 

SETCL2 

STA 

SCREEN+502FF 

,x 

00455 

628C 

CA 




DEX 



00456 

628D 

DO 

FA 



BNE 

SETCL2 


00457 

628F 

60 




RTS 



00458 

6290 








00459 

6290 




;HRINIT - SETS UP HI-RES 

00460 

6290 








00461 

6290 

AD 

11 

DO 

HRINIT 

LDA 

HRCTRL 

; HI-RES MODE 

00462 

6293 

09 

20 



ORA 

#520 

;TURN ON BIT 5 

00463 

6295 

8D 

11 

DO 


STA 

HRCTRL 


00464 

6298 

AD 

18 

DO 


LDA 

HRMREG 

;BYT AT $2000 

00465 

629B 

09 

08 



ORA 

#$08 

;TURN ON BIT 3 

00466 

629D 

8D 

18 

DO 


STA 

HRMREG 


00467 

62A0 

20 

77 

62 


JSR 

SETCOL 

;FORCE BLACK AND GREEN 

00468 

62A3 

20 

5B 

62 


JSR 

CLRHR 

; FORCE TO ALL ZEROES 

00469 

62A6 

AD 

00 

3 


LDA 

ERRVEC 

; REMEMBER SYSTEM 
ERROR VECTOR 

00470 

62A9 

8D 

52 

03 


STA 

ERVEC 


00471 

62AC 

AD 

01 

03 


LDA 

ERRVEC+1 


00472 

62AF 

8D 

53 

03 


STA 

ERVEC+1 


00473 

62B2 

A9 

F9 



LDA 

#<ABRT 

;SET UP NEW 
ERROR RECOVERY 

00474 

62B4 

8D 

00 

03 


STA 

ERRVEC 


00475 

62B7 

A9 

62 



LDA 

#>ABRT 


00476 

62B9 

8D 

01 

03 


STA 

ERRVEC+1 


00477 

6 2BC 

60 




RTS 



00478 

62BD 








00479 

62BD 




;HRREST - 

RESTORE NORMAL MODE 

00480 

62BD 








00481 

62BD 

20 

5B 

62 

HRREST 

JSR 

CLRHR 

JCLEAR HI-RES 

00482 

62C0 

AD 

11 

DO 


LDA 

HRCTRL 

;MODE REGISTER 

" 








" 
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LINE* 

LOG 

CODE 

LINE 




00483 

62C3 

29 DF 


AND 

#111011111 

;TURN OFF BIT 5 

00484 

62C5 

8D 11 DO 


STA 

HRCTRL 

r ^ ~ * "■ * ^^ ^ fa l_i ' _i_ A ^J 

00485 
00486 
00487 

62C8 
62CB 
62CD 

AD 18 DO 
29 F7 
8D 18 DO 


LDA 

AND 

STA 

HRMREG 

#111110111 
HRMREG 

;MEMORY REGISTER 
,*TURN OFF BIT 3 

00488 

62D0 

A9 20 


LDA 

#' ' 

;FILL SCREEN 

00489 

62D2 

20 79 62 


JSR 

SETCLO 

WITH SPACES 

00490 

62D5 

AD 52 03 


LDA 

ERVEC 

; RESTORE SYSTEM 

00491 

62D8 

8D 00 03 


STA 

ERRVEC 

ERROR VECTOR 

00492 

62DB 

AD 53 03 


LDA 

ERVEC+1 


00493 

62DE 

8D 01 03 


STA 

ERRVEC+1 


00494 

62E1 

60 


RTS 



00495 

62E2 






00496 

6 2E2 


;GETVAL - GET PARAMETER 

00497 

62E2 






00498 

62E2 

20 FD AE 

GETVAL 

JSR 

CHKCOM 

; CHECK FOR COMMA 

00499 

62E5 

20 9E AD 


JSR 

EVAEXP 

;EVALUATE EXPRESSION 

00500 

62E8 

20 AA Bl 


JSR 

FLTFIX 

; CONVERT TO INTEGER 
IN Y AND A 

00501 

62EB 

60 


RTS 



00502 

62EC 






00503 

6 2EC 


; ENTER 

HERE 

IF FROM BASIC 

00504 

62EC 






00505 

62EC 

20 OF 60 

SETPIX 

JSR 

HRMOVE 


00506 

62EF 






00507 

62EF 


,* ENTER 

HERE 

IF XI, Yl ALREADY SET 

00508 

6 2EF 






00509 

62EF 

AO 00 

STPIXO 

LDY 

#0 


00510 

62F1 

Bl FD 


LDA 

(BYT) ,Y 


00511 

62F3 

OD 44 03 


ORA 

BITNO 


00512 

62F6 

91 FD 


STA 

(BYT) ,Y 


00513 

62F8 

60 


RTS 



00514 

62F9 


* 
t 




00515 

62F9 


; ERROR 

RECOVERY 


00516 

62F9 


r 




00517 

62F9 

48 

ABRT 

PHA 


;SAVE REGS 

00518 

62FA 

8A 


TXA 



00519 

62FB 

48 


PHA 



00520 

62FC 

98 


TYA 



00521 

62FD 

48 


PHA 



00522 

62FE 

20 BD 62 


JSR 

HRREST 

; RESTORE TO NORMAL 

00523 

6301 

68 


PLA 


; RESTORE REGS 

00524 

6302 

A8 


TAY 



00525 

6303 

68 


PLA 



00526 

6304 

AA 


TAX 



00527 

6305 

68 


PLA 



00528 

6306 

6C 00 03 


JMP 

(ERRVEC) 

; ERROR MESSAGE 

H 






II 
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LINE* LOC 


CODE 


LINE 


00529 

6309 



00530 

6309 

47 

62 

00531 

630B 

OD 

62 

00532 

630D 

31 

62 

00533 

630F 

2E 

62 

00534 

6311 

47 

62 

00535 

6313 

44 

62 

00536 

6315 

31 

62 

00537 

6317 

EC 

61 

00538 

6319 

10 

62 

00539 

631B 

OD 

62 

00540 

631D 

10 

62 

00541 

631F 

2E 

62 

00542 

6321 

EF 

61 

00543 

6323 

44 

62 

00544 

6325 

EF 

61 

00545 

6327 

EC 

61 

00546 

6329 



00547 

6329 

80 


00547 

632A 

40 


00547 

632B 

20 


00547 

632C 

10 


00548 

632D 

08 


05549 

632E 

04 


0054R 

c,32F 

02 


0054? 

6330 

01 


00549 

633?. 



80550 

6331 




eppnpg = 0gopi0 


SYMBOL T«BLE 


MOVTAB .WORD 
.WORD 
.WORD 
.WORD 
.WORD 
• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


RIGHT-1 
UR-1 

LEFT-1 

UL-1 

RIGHT-1 

LR-1 

LEFT-1 

LL-1 

UP-1 

UR-1 

UP-1 

UL-1 

DOWN-1 

LR-1 

DOWN-1 

LL-1 


MSKTB .BYTE $80 , $40 , $20 , $ 10 


,BYTE $08, $04, $02, $01 


, ENE 


SYMBOL VR 1 

JJE 







RBRT 

zoa 

BRS£ 

200 1 !" 

TSTTWn 

0344 

BVT 

i^C>cri 

r 

03dD 

CHKCOM 

REP? 

CLR^R 

625B 

CLRHRJ. 

626C 

COLOR 

0050 

COLS 

0023 

<-nyp\~[ 

61F.S 

"OW 

c \*z7 

DEI T# 

0345 

Tip! TV 

034? 

*\hiO 

C9PS 

-;^3 

^20^ 

DOWN 

61F0 

E 

0349 

rppco 

pj.'!'7 

ERRVEC 

0300 

ERVEC 

0352 

FMPpy.p 

onciT 

FLTFIX 

BIRR 

GETVflL 

62^2 

hrrbbr 

602D 

HRC T RL 

B0 11 

UC lT M T T 

6290 

'JO' OCT 

3 c 3 r 

HRMOVE 

6006 

udmpfh 

501$ 

[jppepT 

CpPTI 

T 

034- 

JCLR 

5006 

JDRflW 

6003 

TTM TT 

6000 

:rest 

"003 

jctrrpy 

500C 

' ITpT 

6232 

! P2 

5244 

LL 

61EB 

LR 

62415 

MOVE 

60BC 

yni,,'Tpti 

iC^pp 

[•JCKT" 

£OC"3 

MV 1 

S0FTD 

mio 

61 IB 

MV3 

6147 

MV4 

615D 

MV3 

^«<rn 

MV6 

6199 

MV7 

61R4 

ORIGIN 

C000 
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OUTFIT 

gtgfl 

POM 

Pj^SH 

RGT1 

£?59 

R I QHT 

6248 

RNG1 

6iB2 

PNG2 

6i m 

RHG3 

61ES 

OKifi^uy 

£4 r-c. 

SCREEN 

0400 

SCRENB 

07E7 

5E T CL? 

62?9 

SE7C! 1 

627B 

SETCL2 

£239 

SETC0L 

6277 

CFTpTV 

^F^ 

5jpjj^g 

52PP 

T 

£?4B 

T^MP 

SJ^P* 

IJL 

622^ 

MP 

6211 

UPi 

6226 

UP 2 

622C 

UP3 

^ooc 

UP 

iC?9C 

VECPL1 

5RQt! 

VECPU 

6009 

\f t r 

D^ 1 ?? 

WfiRMV 

fl?fi2 

Xi 

033C 

X2 

S33E 

KHRX 

0140 

VI 

^2 d ? 

V2 

P3<*2 

VMPV 

isorp 






Listing #2: BASIC Loader 


1000 AD=6*16t3:Z=0:W=l:T=2:C(0) =W:C(1) =16 : FS=4 7 : FE=58 : F8=4 8 : SF=64 

:FF=55 
1010 CT=0:CH=0:E=0:PRINT"WORKING" 
1020 FOR 1=0 TO 5:CT=CT+CH:CH=0:FOR J=0 TO 127 
1030 READ A$:GOSUB2000:POKEAD,D:AD=AD+1:CH=CH+D 
1040 PRINT" .",* :NEXTJ 

1050 READ N:PRINT:PRINT"CHECKSUM"I"IS";CH;", SHOULD BE";N 
1060 IF NOCH THEN E = l 
1070 NEXT I 

1080 CT=CT+CH:CH=0:FOR 1=0 TO 48 

1090 READ A$:GOSUB2000:POKEAD,D:AD=AD+1:CH=CH+D 
1100 PRINT"."; :NEXTI 

1110 READ N:PRINT:PRINT"CHECKSUM 6 IS" ;CH; ", SHOULD BE";N 
1120 IF NOCH THEN E=l 
1130 PRINT:CT=CT+CH:READ N:IF CT = N AND E=0 THEN PRINT"HRSUPP NOW 

LOADED": END 
1140 PRINT"CHECKSUM ERROR": END 
1150 : 
2000 D=Z:FORL=ZTOW:B$=MIDS(A$,T-L,W) :B=ASC(B$) 


2010 
2020 
2030 
2040 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 


IFB>FSANDB<FETHENB=B-F8 
IFB>SFTHENB=B-FF 
D=D+B*C(L) :NEXTL:RETURN 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


4C,90, 
62, 4C, 
E2,62, 
8D,3D, 
62, 8C, 
43,03, 
FE,38, 
2 9,F8, 
0A,26 r 
FE,8D, 
0A,26, 


6 2,4C,BD 
89,60,4C 
8C,3C,03 
03,8D,3F 
40,03,8C 
20,06,61 
A9,C7,ED 
0A,26,FE 
FE,48,8D 
51,03,68 
FE,6D,50 


,62,4C,5B 
, EC, 62, 20 
,8C,3E,03 
,03,20,E2 
,42,03, 8D 
,A9,00,85 
,40,03,48 
,0A,26,FE 
,50,03,A5 
,0A,26,FE 
,03,85,FD 


6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 


DATA A5, 

DATA 3C, 

DATA AD,j U ,u J/U . 

DATA 29, 07, 65, FI 

DATA 69, 20, 85, FI 
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6260 

DATA 

8D, 47, 03, AD, 43, 03, ED, 41 

6760 

DATA 

18,A5,FD,69,39,85,FD,A5 

6270 

DATA 

3,8D,4 8,0 3,AD,3E,0 3,8D 

6770 

DATA 

FE, 69, 01, 85, FE, 60,20,48 

6280 

DATA 

3C,0 3,AD,3F,0 3,8D,3D,0 3 

6780 

DATA 

62,A5,FD,29,07,D0,0F,38 

6290 

DATA 

AD , 4 2., 3 , 8D , 4 , 3 , AD , 4 3 

6790 

DATA 

A5,FD,E9,3 9,85,FD,A5,FE 

6300 

DATA 

3,8D,41,0 3,A9,00,8D,4F 

6800 

DATA 

E9,01,8 5,FE,D0,0 8,A5,FD 

6310 

DATA 

03, 2C, 4 6, 3, 10, 17, AD, 4 5 

6810 

DATA 

DO,0 2,C6,FE,C6,FD,60,20 

6320 

DATA 

03,20,E7,61,8D,4 5,0 3,AD 

6820 

DATA 

11,6 2,0E,44,03, 90,0D,2E 

6330 

DATA 

46, 03, 20, E8, 61, 8D, 46, 03 

6830 

DATA 

44,03,A5,FD,E9,07,85,FD 

6340 

DATA 

A9,02,8D,4F,03,2C,48,03 

6840 

DATA 

B0,0 2,C6,FE,60,20,F0,61 

6350 

; 


6850 

DATA 

4E,4 4,0 3,90,0D,6E,44,03 

6360 

DATA 

10315:REM CHECKSUM 1 

6860 

DATA 

A5,FD,69,08,85,FD,90,02 

6370 

; 


6870 

DATA 

E6,FE,60,A9,3F,85,FE,A9 

6380 

DATA 

10,1B,AD,4 7,03,20,E7,61 

6880 

DATA 

00,8 5,FD,A8,8 5,FD,91,FD 

6390 

DATA 

8D, 47, 03, AD, 48, 03, 20, E8 

6890 

DATA 

A0,3F,A2,20,91,FD,88,D0 

6400 

DATA 

61,8D,4 8,0 3,18,AD,4F,0 3 

6 9 00 

DATA 

FB,C6,FE,CA,D0,F6,60,A9 

6410 

DATA 

69,04,8D,4F,03,AE,45,03 

6910 

DATA 

50,A2,00,9D,00,04,9D,00 

6420 

DATA 

EC, 47, 03, AD ,46, 03, A8, ED 

6920 

: 


6430 

DATA 

48,03,10,1B,AD,47,03,8D 

6930 

DATA 

17166:REM CHECKSUM 4 

6440 

DATA 

45, 03, AD, 48, 03, 8D, 46, 03 

6940 

: 


6450 

DATA 

8E, 47, 03, 8C, 48, 03, 18, AD 

6950 

DATA 

05,9D,00,06,E8,D0,F4,A2 

6460 

DATA 

4F,0 3,6 9,0 8,8D,4F,0 3,AD 

6960 

DATA 

E8,9D,FF,06,CA,D0,FA,60 

6470 

DATA 

45,03,20,E7,61,8D,49,03 

6970 

DATA 

AD,11,D0,09,20,8D,11,D0 

6480 

DATA 

AD,46,0 3,20,E8,61,8D,4A 

6980 

DATA 

AD, 18, DO, 09, 08, 8D, 18, DO 

6490 

DATA 

03, 38,30,01, 18, 6E,4A, 03 

6990 

DATA 

2 0, 77, 62, 20, 5B, 6 2, AD, 00 

6 50 

DATA 

6E,4 9,0 3,AO,0 0,8C,4D,0 3 

7000 

DATA 

03,8D,52,03,AD,01,03,8D 

6510 

DATA 

8C,4E,03,F0,37,AE,4F,03 

7010 

DATA 

5 3,0 3,A9,F9,8D,00,0 3,A9 

6520 

DATA 

18, AD, 49,03, 6D, 47, 03, 8D 

7020 

DATA 

6 2, 8D, 01, 03, 6 0, 20, 5B, 62 

6530 

DATA 

49, 03, AD, 4A, 03, 6D, 48,03 

7030 

DATA 

AD,11,D0,29,DF,8D,11,D0 

6540 

S 


7040 

DATA 

AD, 18, DO, 29, F7, 8D, 18, DO 

6550 

DATA 

10002:REM CHECKSUM 2 

7050 

DATA 

A9, 20, 2 0,7 9, 62, AD, 52, 03 

6560 

: 


7060 

DATA 

8D,00,03,AD,53,03,8D,01 

6570 

DATA 

8D,4A,0 3,30,14,38,AD,4 9 

7070 

DATA 

03,60,20,FD,AE,20,9E,AD 

6580 

DATA 

03, ED, 45, 03, 8D, 49, 03, AD 

7080 

DATA 

20,AA,B1,60,20,OF,6 0,AO 

6590 

DATA 

4A,03,ED,46,03,8D,4A,03 

7090 

DATA 

00,B1,FD,OD,44,03,91,FD 

6600 

DATA 

E8,20,BA,61,EE,4D,03,D0 

7100 

DATA 

60, 48, 8A, 48, 98, 4 8, 20, BD 

6610 

DATA 

03,EE,4E,03,B1,FD,0D,44 

7110 

t 


6620 

DATA 

03,91,FD,AD,4D,03,CD,45 

7120 

DATA 

13370:REM CHECKSUM 5 

6630 

DATA 

3, AD, 4E, 03, ED, 4 6, 3, 90 

7130 

: 


6640 

DATA 

B4,60,8A,0A,AA,BD,0A,63 

7140 

DATA 

62,68,A8,68,AA,68,6C,00 

6650 

DATA 

48, BD, 09, 63, 48, 60, AD, 3E 

7150 

DATA 

03, 47, 62, OD, 62, 31, 62, 2E 

6660 

DATA 

3,C9,40,AD,3F,0 3,E9,01 

7160 

DATA 

62, 47, 62, 44, 62, 31, 62, EC 

6670 

DATA 

B0,0C,AD,4 2,0 3,C9,C8,AD 

7170 

DATA 

61,10,62, OD, 62, 10, 62, 2E 

6680 

DATA 

43, 03, E9, 00, 90, 08, 20, BD 

7180 

DATA 

62,EF,61,44,62,EF,61,EC 

6690 

DATA 

62,A2,0E,6C,00,0 3,60,38 

7190 

DATA 

61,80,40,20,10,08,04,02 

6700 

DATA 

49, FF, 69, 00, 60, 20, 32, 62 

7200 

DATA 

01 

6710 

DATA 

A5,FD,29,07,49,07,FO,08 

7210 

s 


6720 

DATA 

E6,FD,D0,ll,E6,FE,DO,OD 

7220 

DATA 

4154: REM CHECKSUM 6 

6730 

• 


7230 

J 


6740 

DATA 

12978: REM CHECKSUM 3 

7240 

DATA 

82268: REM TOTAL CHECKSUM 

6750 

• 






£ 
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the arts 


Listing #3: Demonstration Program 


18 IF R=8 THEN A=l :LQAD"HRSUPP" 

,8,1 
26 BA=6*16T3:REM BASE ADDRESS 

39 IN=BA 

40 RS=BA+3 
50 CL=Bfl+6 
60 DR=BA+9 
70 PX=BA+12 
80 NV=BA+15 
98 SYS<IN) 

100 S=3:SYSaiV>,S,SiF0R I=S TO 

195 STEP S 
110 X1=S:Y1=X1:X2=X1:Y2=Y1+I 

1 29 X3=X2+ I : V3=Y2 : X4=X3 : V4=Y3- I 

130 SVSDR, X2, 198 
140 SVSDR,X3,V3 
150 SYSDR,X4,V4 
160 SVSDR,X1,V1 
170 NEXT I 

180 GET A*: IF B*0"C" THEN 130 
206 R=80 : XC- 1 60 : VC= 1 80 : A=ir/ 1 39 : 
S=5 

210 sysccl) 

228 FOR AN = O TO ir/1.99 STEP 

ir/20 
230 SVSM V „ XC+R*S I N < AN > , VC+R*S 

INCRN) 
240 FOR I=S TO 360 STEP 3 
250 SVSDR , XC+R*S I N ( 2* I *A+ AN > , 

VC+R*SINCI*A+AH> 
260 NEXT I, AN 

270 GET A*: IF A$0"C" THEN 270 
300 SVS<CL> 
310 0=4:E=2:X=XCiY=YC 
320 SVSMV,X,V 
330 FOR 1=0 TO 20 
340 D=D+E : V=V+D : SVSDR , X , V 
358 D=D+E : X=tf +D : SVSDR , X , V 
360 D=D+E : V=V-D : SVSDR , X r V 
370 D=D+E:X=X-D: SVSDR, X,V 
388 NEXT I 

390 GET A*: IF A$0"C" THEN 390 
460 SVSCL :S=it/3 
410 FOR T=0 TO S STEP S/8 
428 SVSMV,XC+R*COS<T> ,VC+R*SIN<T> 
430 FGR I=S TO 2*it STEP S 
440 SVSDR , XC+R*COS <I +T > , VC+R* 

SIN<I+T) 


450 NEXT I,T 

460 GET A*: IF R$O n C" THEN 460 

588 SVSCL : S=tr/4 : D=R/20 

510 FOR T=0 TO S STEP S/20 

520 svsnv , XC+R*COS <. T > , VC+R*S I N ■: T ■? 

530 FOR I=S TO 2*it STEP S 

540 SVSDR , XC+R*COS < I +T > , VC+R*S I 

N<I+T> 
550 NEXT I 
568 R=R-D:NEXT T 
588 GET A*: IF A^O-'C" THEN 580 
680 SVSCL :R=88 :S=tt/8 :D=R/28 
618 FOR T=8 TO S STEP 3/48 
628 SVSPX,XC+R*COS<T::- ,VC+R*SIhKT> 
630 FOR I=S TO 2*ir STEP S 
648 SVSPX , XC+R*COS < I +T > , YC+R*S I 

H<I+T> 
650 NEXT I 
668 R=R-D:NEXT T 
630 GET A$:IF A*0"C" THEN 688 
700 SVSCL :R=88 :S=2*n/5 :A=it/10 
710 FOR 1=0 TO 4 
720 T=A+I*S 
730 X ■: I ) =XC+R*COS < T > : V < I > = VC+R 

*SIN<T> 
740 NEXT I 
750 SVSMV , X C8> , V <0) 
760 SVSDR, X<2>,Y<;2> 

V<4> 
770 SVSDR,X<1>,V<1> 

V<3) 
780 SVSDR , X < 8 > , 't' ( > 
790 GET A*: IF R*0"C" 
808 SVSCL :A=160:B=A/2 

*EXPk-4> 
310 FOR X=4 TO 2*A-1 STEP 4 
820 SVSDR , X , A*E XP <. - <. <. X- A > /B > t2 > 
838 NEXT X 

880 GET A*: IF A$0"C" THEN 830 
9999 SYS<RS> 


! SVSDR, X<4>, 
SVSDR,X<3>, 


THEN 760 
: SVSriV,©, A 


L 


JJ 
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A Graphics Language for the 64 


The graphics program presented in this article is 
actually a graphics language. The demonstration 
program (listing #3) is one example of how to use 
this graphic language. There are seven commands 
that can be used with this language. They are 
Initialize, Reset, Clear, Pixel, Move, Draw and 
Color. Lines 20-80 of the demonstration program 
set the SYS values for each of these commands 
(except Color which would be BA + 631). The 
following list explains each command and gives 
an example of its use. 

NOTE: The following examples assume that lines 
20-80 of the demonstration program have been 
used to set up your program. 

Initialize — This command initializes the graphic 
language. This must be used before any other 
commands can be used. 
Syntax— SYS(IN) 

Reset — This command turns off the graphics lan- 
guage and will return the program to BASIC. This 
should be used at the end of your program to return 
the cursor and READY prompt. 
Syntax— SYS (RS) 

Clear — This command will clear the high resolution 
screen. The color displayed is the background color 
(see the Color command). 
Syntax— SYS (CL) 

Pixel — This command will turn on one point (or 
pixel) at the specified X and Y coordinate. 
Syntax— SYS(PX),X,Y 

Example— SYS(PX),50, 120 would rum on the 
pixel 50 places to the right of and 120 places 
above the lower lefthand comer of the screen. 

Move — This command moves the pixel pointer to 
the specified X and Y location. No pixels are turned 


on. This command is used to set the first X,Y point 

of a line to be drawn. 
Syntax— SYS(MV),X,Y 

Example— SYS(MV), 50, 120 would put the pixel 
pointer at the same location as in the Pixel exam- 
ple, however the pixel would not be turned on. 

Draw — This command will draw a line between the 
current pixel pointer (set by either a Pixel or Move 
command) to the specified X and Y coordinates. 
Syntax— SYS(DR),X,Y 

Example— SYS (DR), 100, 150 would draw a line 
from the current pixel pointer position (X=50, 
Y= 120 if the Move command example was used) 
to X=100, Y=150. 

Color — This command will change the background 
and pixel colors displayed on the screen. The color 
number associated with this command is formed by 
an upper nibble for the pixel color and a lower nib- 
ble for the background color. Page 61 of the Com- 
modore 64 user's guide has a chart with the number 
value for each color. The color number is defined as 
16*(the pixel color #) + (the background color #). 
Syntax— POKE(CR+l),(color 
number): SYS (CR) 

Example— POKE(CR+l),33:SYS(CR) would set 
the pixel color as red (16*2=32) and the back- 
ground color as white (33-32 = 1). C 

Jim Gracely 
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Stop Gambling. 
Start Winning. 
Now. 

It's a fact. You will beat the dealer if 
you play Blackjack correctly. In Las 
Vegas, In Atlantic City. In dozens of 
foreign countries throughout the world. 

They haven't changed the rules. Even 
multiple-deck games pose no problem 
if you play properly. You can win just 
as easily in 1983 as you could in 1961 
when the first Blackjack strategies 
were created. 

This ad is your cue to join the small 
group of Blackjack players who are 
no longer gambling. Become a strategy 
player and win. Consistently. 

The Obstacle 

Despite the wild claims made by the 
Blackjack system charlatans, it is not 
possible to learn an effective strategy 
overnight. Learning an effective strate- 
gy takes time and discipline. If learning 
a strategy were easy, everyone would 
be making a living playing Blackjack. 
As it stands, less than one percent 
play well enough to make money. 

The Solution 

BLACKJACK TEACHER simulates, in 
precise detail, the events that tran- 
spire in actual casino play. The display 
screen depicts the top view of a 
Blackjack table. You interact with the 
program just as you would an actual 
game. Computer controlled players 
occupy adjacent seats. All events 
occur in real-time. 


BLACKJACK TEACHER teaches seven 
different strategies of varying complex- 
ity and accuracy. This spectrum of 
strategies allows you to select a 
strategy that suits your needs. 

BLACKJACK TEACHER monitors your 
betting and strategy decisions (hit/ 
stand/double/split/insurance). If your 
decisions are incorrect within the 
guidelines of your strategy, the system 
will display error messages showing 
you the correct decisions. 

BLACKJACK TEACHER is the result of 
over ten years ol Blackjack research . 
The strategies encompassed by the 
system were developed using com- 
puters. The more complex strategies 
are among the most powerful ever 
devised. 

Complete documentation is included 
which tells you everything you need to 
know to become an expert strategy 
player. 

The SOTA Story 

SOTA Enterprises has consistently 
produced nothing less than the 
highest quality software. When you 
buy software from SOTA, we do our 
utmost to make sure you get your 
money's worth. 


ATTENTION VIC 20 USERS 
A new version of BLACKJACK 
TEACHER is now available for the 
VIC 20. Although not as compre- 
hensive as the original 32K program, 
the VIC 20 version does teach Basic 
Strategy - a must for the Blackjack 
strategy beginner! 


FILL OUT AND MAIL TODAY! 

Name 

Address 

City 

State 


Zip 


Check Box 

□ VIC 20 (S19.95) 
D COMMODORE 64 (S49.95) 
D PET (32K) ($49.95) 
D PET 2001 (32K) (S49.95) 
D CBM 4032 ($49.95) 
D CBM 8032 

(w/screen cruncher) (S49.95) 

□ SUPER PET (S49.95) 




Make Check or Money Order Payable to; 

SOTA Enterprises, Inc. 

833 Garfield Ave, Suite 101 
South Pasadena, CA 91030 

Include $2.50 Postage and Handling •California Residents add 6Vi% Sales Tax 


f 


education 


Color Me Purple... Or Red... 

Or Green... 

by Doris Dickenson 


Some activities to teach children to 
manipulate color on the Commodore 64, 
from a fourth-grade teacher who won 
her 64 in an essay contest — and then had 
to figure out how to use it. Doris' articles 
have appeared in several past issues 
of Commodore. 


When we replaced the black and white T.V. 
monitor for our Commodore 64 with a new color 
monitor, we opened up a whole new area of explo- 
ration for my fourth-grade students. We added some 
language arts activity to the color capabilities of our 
computer, and also some practice in programming. 
Since many children of 9 or 10 seem to be interested 
in the visual aspects of computers, rather than the 
mechanics of programming on their own, the 
replacement created a great deal of renewed interest 
among the students. 

Working independently with the classroom man- 
uals that I created for them in our Computer Corner, 
the students were soon involved in drawing reverse 
color bars with the color keys. It wasn't long before 
they began creating their own color patterns. There 
were almost as many different combinations of de- 
signs and colors as there were students using the 
computer. (Editor's Note: Doris' instruction manual 
for children, "You and Your Computer", appeared 
in five parts in the last three issues of Commodore. ) 

As an introduction to using computer commands 
to control colors, I put up a chart showing the POKE 
code and number listings for different available bor- 
der and background colors. (See the Commodore 
64 users' manual, page 61.) When you do this, list 


color 3 (cyan) as light green-blue. It is more under- 
standable to the students. 

Activity 1: Type POKE 53280, ; 

POKE 53281 

RETURN 

Use any numbers from the chart in place of the 
dashes. Once the color is changed, use cursor up 
and cursor right to replace the color numbers with 
other color numbers. You can come up with all sorts 
of interesting combinations, but watch out when 
you change the background to 14, light blue, which 
is the normal printing color. Your printing will seem 
to disappear unless you change the color of the 
printing with a color key before you put in the light 
blue background. 

Activity 2: Using some of the language arts ideas 
from our reading, we selected some figures of speech 
that contained color words, then chose some colors 
to suit the single expressions. A little simple program- 
ming combined these into one program. (See pro- 
gram that follows for Activity 2.) 

Activity 3: How many more "color expressions" 
can you find? Add these into the program. 

Activity 4: Do some research into song titles with 
color words. You might want to start with "Red 
River Valley", "Greensleeves" or "Blue-Tail Fly". 
Use the program in the previous activity to help you 
make up your own program of song titles. 

Activity 5: This short and simple program puts a 
familiar poem into color. (See program that follows 
for Activity 5. ) 

Activity 6: Try typing PRINT CHR$(20) for lines 
10,50, 110, 160, 210, and 270. 


l± 
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Activity 7: Change the border and screen colors in 
lines 60, 100, 150, and 200 by using different POKE 
color numbers. (See chart or users' manual, page 61) 

Program for Activity 2 


Activity 8: Think of other ways you can put words 
and color together. Try to write them into a program. C 


5 REM COLOR WORDS 
10 PRINTCHRf(i47)^ 
20 PRINTCHR$<5) 

39 POKE53280J : P0KE53281 , 9 

40 PR I NT "BLACK RS PITCH" 

50 F0RH* 1 TO 1 000 : NEXT «• 

60 PRINTCHRf(i47) 

70 PRINTCHR*(144) 

30 POKE532S0,2:POKE53281,2 - 

90 PR I NT "RED AS A BEET" 

100 FORX=1TO!.000:NEXT 
110 PRINTCHR*C14?5 
120 P0KE53288>4:P0KE5328M 
130 PRINT" PURPLE WITH RRGE" 
140 F0RX»1 TO 100Q: NEXT 


This clears the screen. 


This timing loop 
keeps it on 
the screen long 
enough to read it 


150 PRINTCHR*<147> 

160 POKE532S0, 14:P0KE532S1 , 14 

170 PR I NT "FEELING BLUE" 

130 F0RX=1 TO 1000: NEXT 

190 PRINTCHR*<147> 

200 POKE53230 .. 5 : P0KE5323 1 , 5 

210 PR I NT "GREEN WITH ENVV" 

220 FORX=1TO1000:HEXT 

230 PRINTCHR$<147) 

240 P0KE53280, 1 : P0KE53281 > 1 

250 PRINT" WHITE RS fl SHEET" 

263 FORX=1TO1000:NEXT 

270 PRINTCHR*<147) 

230 PRINTCHR*(154) 

290 POKE53230, 14 : P0KE53281 , 6 


Program for Activity 5 


5 REM COLOR POEM 

10 PRINTCHR*<147> * 

15 PRINTCHR*<144) 

20 P0KE53230, 1 : P0KE53261 * 1 

35 PRINT :PRINT: PRINT: PRINT: PRINT 

40 PRINTTAB<10>"flN OLD FAVORITE" 

45 GOSUB5S0 -* 

50 PRINTCHR*<147> 

60 POKE53280 , 4 : P0KE5323 1 , 2 

70 PRINT: PRINT: PRINT: PRINT :PRIN 

30 PRINTTflBC 10 > "ROSES ARE RED" 

90 GGSUB500 

1 00 POKE53230 * 4 : P0KE5328 1 , 6 

110 PRINTCHRtU47) 

1 20 PR I NT : PRINT : PRINT : PRINT : PRI NT 

130 PRIMTTABC 10) "VIOLETS ARE BLUE" 

140 OOSUB500 

150 PQKE53230 , 3 : P0KE532S 1 , 7 

160 PRINTCHR*<147) 


Type PRINT "{CLRHOME}" by pressing 
SHIFT and CLR HOME. It will print as 3 



This moves your print- 
ing down the screen 


The TAB moves your printing 
in from the edge. 


Instead of repeating the timing loop, the 
computer can go down to one sub- 
routine when you want a delay. 
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179 PRINT : PRINT : PRINT : PRINT : PRINT 



180 PRINTTflBC 10) "SUGAR IS SWEET" 



190 GOSUB500 



200 POKE53280 .■ 3 : P0KE5328 1 , 1 3 



219 PRINTCHR$<i47> 



220 PRINT : PRINT : PRINT : PRINT : PRINT 



£30 PRINTTflB<10)"flND SO ARE VOU" 



248 GOSUB500 



263 POKE53280 > 1 4 : P0KE5328 1 , 6 



270 PRINTCHRta47> 



280 PRINTCHR*(154J 

•-■no f-fifi 





Subroutine timing loop J 



5S0 FORT=iTO1000 -*- " 
518 NEXTT 



Go back to the regular program. 

520 RETURN <* 


Press RUN/STOP and RESTORE to get back to 

a normal printing color mode. 



JJ 




JOIN THE 
COMPUTER 
REVOLUTION 
WITH A MASTERY 
OF THE KEYBOARD! 
In the age of the computer, everyone 
from the school child to the Chairman of 
the Board should be at home at the 
computer keyboard. Soon there will be 
a computer terminal on every desk and 
in every home. Learn how to use it right 
...and have some fun at the same time! 

Rated THE BEST educational program for the VIC 20™ 
by Creative Computing Magazine 

TYPING TUTOR PLUS WORD INVADERS — $21.95 

(2 programs on one cassette tape for the unexpended VIC 20™) 

Typing Tutor plus Word Invaders makes learning the keyboard easy and fun! 
Typing Tutor teaches the keyboard in easy steps Word Invaders makes typing 
practice an entertaining game. Highly praised by customers; 

"Typing Tutor is great 1 ", "Fantastic". "Excellent". High quality". "A sourceol 
great joy and learning lor our children". "Even my little sister likes it". Word 
Invaders is sensationall " 

Customer comment says it all . , , 

. and it was everything you advertised it would be. In three weeks, my 13 year 
old son. who had never typed before, was typing 35 w.p.m. I had improved my 
typing speed 15 w.p.m. and my husband was able to keep up with his college 
typing class by practicing at home. " 



SPECIAL 

VERSION OF 

TYPING TUTOR 

PLUS WORD INVADERS 

NOW AVAILABLE FOR THE 

COMMODORE 64'"... S&S9B3 

All of the features of the VIC 20"' Version and more 




SPRITE 
DESIGNER 

by Dr. Lee T. Hill 

51 6.95 (Tape) $21 .95 (Disk) 

Create and then transform sprites automatically. We 
have the other sprite making programs, b jt this is the 
one we use to make sprites The automatic transfor- 
mations are great! 

^^^^ Shipping and handling $1.00 per 

SSt order. California residents add 6% tJOOfh 
^■M sales tax VISA and Mastercard '••' 
orders must include lull name as shown on card, card 
number, and expiration date Free catalog sent with 
order and on request 

ACADEmV 

SOFW/1RE 

P.O. Box 9403, San Rafael, CA 94912 (415) 499-0850 


Programmers: Write to our New Program Manager concerning any exceptional VIC 20TM or Commodore 64TM game or other program you have developed. 
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Computer Programs 

Teach Fifth Graders 

Elementary Economics 


by Larry Modrell 


A VIC 20 does "payroll" 
and runs the "bank" in this 
Oregon classroom, where 
fifth graders get direct 
experience in economic 
realities. 


Barbara Kroeker and I teach 
fifth grade students at the Elizabeth 
Page Elementary School in Spring- 
field, Oregon. Over the past few 
years, we have devised an "eco- 
nomics" program to motivate stu- 
dents to excell in their academics, 
which we initiate during the last 
three months of each school year. 
The entire system is based on the 
conversion of the students' grades 
into a monetary value and the use 
of the resulting "paycheck" as it 
would be used in the real world. 

On Thursday afternoons, the 
VIC 20 converts each student's 
grades for the week into a mone- 
tary value, and calculates how 
much tax the student must pay. 
We have written a program for the 
VIC to handle this chore, and it is 
amazing how much time the com- 
puter has saved us, 

A payroll slip is then made out 
for each student. The students 
must then deduct their income 
tax, utility bills, rent on their desks 
and any fines that may have been 
levied over the past week. They 
use their basic math skills to 
accomplish this, and must be 
accurate in adding all these items 
together and subtracting the total 
from their gross earnings to get 
their net earnings. 


When the students have com- 
pleted this task, they go to one of 
the two computer operators in 
each of our classrooms to verify 
the accuracy of their net earnings. 
We have written another program 
to do this job. (Before we had the 
computers, we did this entirely 
with calculators, which was very 
time consuming.) After they check 
them, the computer operators 
sign the payroll slips they find 
to be correct. 

Because the job of computer 
operator is a fairly responsible po- 
sition, the operators had to write 
letters of application and interview 
for the jobs. They run the programs 
on our Commodore 64's, which 
have replaced the PET and VIC 20 
that used to do these calculations. 

After their figures are verified by 
the computer operator, students 
take their payroll slips to the bank 
(also run by students), and cash 
them in for "money" — actually 
play money printed with students' 
pictures on each denomination. 
If they wish they can put money 
into a savings account and earn 
ten percent interest per week. 
Our VIC 20's are tapped again to 
handle this task, managing the 
entire savings department at the 
bank, including calculating the 
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interest earned on each account. 

Students who wish to deposit 
money are given an account 
number and all transactions from 
that time are stored on tape and 
updated by our VIC computers. 
If a student deposits or withdraws 
money, the computer automati- 
cally adds or subtracts the amount 
and gives an instant printout of 
the new balance on the screen. 
Students can also print a hard copy 
of all updated accounts on our 
VIC printer. 

If they do not wish to save all 
their "money" the students can 
also choose to spend it in our 
weekly stores. Students operate 
the stores and learn to make cor- 
rect change when items are pur- 
chased. We have a toy store, a 
candy store, book store, car lot 
(Hot Wheels), bakery and others. 
I also get the opportunity to play 
auctioneer once a week and auc- 
tion off items to the highest bidder. 

The computers have enhanced 
the success of our economics pro- 
gram and have added a new dimen- 
sion to our economics simulation 
that helps motivate and educate 
the children. It's true that parents 
are enthused and supportive, and 
the P.T.A. donates items to be sold 
in our stores. But, most of all, the 
students are learning that the com- 
puter can be used as a basic tool, 
for much more than the usual 
drill-and-practice routines they are 
generally exposed to in school. C 
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COMPUTER CASSETTES 
100% Error-Free • Fully Guaranteed 


. 

T 




■ * Jb 

i * m 


IT*" — 
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LENGTH 

C-05 

C-10 

C-20 

Boxes 

UPS $3.00 Pkg. 

PACK PACK 

79* 69* 
89* 79* 
99* 89* 
26* 21* 
$18.00 Case 

C-10's 39C 

IMin SCO Case (.ol) 
w/labels ADD 4C, 
wf bones ADD 13C 

^, FOR ORDERS ONLY - 
m£k 1-800-S28-60S0 «^^ 
Mr Extension 3005 ^JC^ 


A Giant Step 

for the computerist 

THE PRDiTlQUEEn 

Opens up the world of modern elec- 
tronics. Now - a complete microde- 
velopment system in a cartridge using 
the Commodore VIC-20. You get 
HEXKIT 1 .0 for general purpose 8 bit 
microprocessor software develop- 
ment, a 4K ROM emulator for testing 
program in circuits under develop- 
ment plus an EPROM programmer 
for making hard copy of programs. 
All-in-one cartridge »jAAnn 
with 1 00 page *1 QQUU 

tutorial manual. Iww 

Arbutus Total Soft. Inc., 4202 Meridian. 
Suite 214, Bellingham, WA 98226, Phone 
BOQ-426-1253, in Washington 206-733-0404 
Distributed in Canada by IBC Distribution 
Canada. 4D47 Cambie St Vancouver BC 
V5Z 2X9. Phone 604-879-7812 
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MICRO-80 " INC. 

2665-p Busby Road 
Oak Harbor. WA 98277 




FIVE POWERFUL SOFTWARE 
DEVELOPMENT TOOLS 

Bus the Exciting Jfav Book 
INSIDE THE VIC 


THE BOOK 

A complete clear explanation ol machine 
language, Assembly language, VIC 20 archi- 
tecture, graphics, joystick and sound effect 
programming. Dotal ed stepby-step guide to the 
use of the development tools. How to combine 
BASIC and machine language, make auto-start 
cartridges, Interface with the Internal ROM- 
based programs of BASIC and the Kernal. 
Sample programs fully explained. 


THE TOOLS 

Ajsembler/Edltor/Loader/DecoderfMonltor 
Fun featured Assembler allows use at labels, 
comments and arithmetic expressions to create 
machine language programs. Create, save, 
modify Assembly language programs with the 
Editor. Load and link machine language modules 
with the Loader. Decode machine language back 
Into assembly language for study or Input to the 
Editor. Single-step program execution with the 
Monitor. Extended features combines Assembler/ 
Editor for maximum ease of use. 


ALL FOR $49.95 PLUS $2.00 POSTAGE AND HANDLING Standard version runs on 
any system with Datasette (5K and up) Add $5.00 for disk version, $5.00 lor extended features 
(minimum 8K) Send check, M.O., VISA/MC ($2.00 S.C.) or specify C.O.D. (add $3.00) to: 


c - - l 



P.O. Box 207, Cannon Falls, MN 55009 
507-263-4821 

VIC-20 Is a registered TM of 
Cammotforf SujIneJl Machines Inc 
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Preschoolers 
at the Computer 


by Alexandra Muller 

Postdoctoral Associate • Institute of Child Development • University of Minnesota 


Educators used to feel that 
young people needed extensive 
training in mathematics and logic 
in order to properly use and bene- 
fit from computers. They felt it was 
useless to introduce computers 
before college. Nevertheless, com- 
puting began to be introduced in 
high school, and finally in elemen- 
tary school. What about preschool? 
Can and should children in the 
preschool years be exposed to 
computers? 

Given the increasing prevalence 
of computers, it is essential that the 
age at which children can begin 
to profit from interaction with this 
technology not be underestimated. 
The issue of how young children 
can or should be formally exposed 
to computers is important, because 
it is likely that those who are ex- 
posed to computers early will be 
more comfortable and facile with 
them later. Therefore, a research 
project was initiated under the 
auspices of the Institute of Child 
Development at the University 
of Minnesota in order to study pre- 
school children's interactions when 
using a computer. The purpose of 
the study was to find out whether 
preschoolers' intellectual and 
social development permits mean- 
ingful computer use. 

In the study, a number of 

■ 



very basic questions had to be an- 
swered: Can preschool children 
use a standard keyboard? Will 
children at the computer require 
too much teacher attention? Can 
preschoolers work together coop- 
eratively at the computer? Will the 
computer disrupt social interaction 
in the classroom because children 
will prefer to play with the com- 
puter rather than with each other? 

The children studied were a 
classroom of four- and five-year- 
olds at the University Child Care 
Center. They were introduced 
to the microcomputer in small 
groups, during a half-hour session 
in which they received verbal ex- 
planations of how the computer 


I 


worked. At the same time, they 
also got the opportunity to actually 
run the computer. 

The software used was a com- 
mercially available disk purchased 
from the Minnesota Educational 
Computing Consortium. It included 
activities specifically geared to the 
preschool level. There were three 
alphabet games, three counting/ 
number games, and three concen- 
tration-type matching from mem- 
ory games using pictures, words, 
or shapes. In order to choose a 
program, the child had only to 
press a number corresponding to 
a picture which depicted the pro- 
gram they wanted. To respond to 
a program, a child needed only 

I 
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The issue of how young children can or 

should be formally exposed to computers 

is important, because it is likely that those 

who are exposed to computers early will be 

more comfortable and facile with them later. 


to press a single letter or number. 

The computer was placed in a 
central location against one wall 
of the preschool classroom, and 
turned on with the program direc- 
tory visible on the screen. It was 
freely accessible in the classroom 
during playtime, along with the 
other activities usually available. 
We wanted to provide free access 
so that children would feel the 
computer was something to be 
readily approached and used. 

The children were allowed to 
work at the computer in groups 
of two during their free playtimes. 
We found that a maximum of two 
children at a time provided the 
best opportunity for each child 
to interact with the computer. 

The children also were allowed 
to decide on their own how long 
they played with the computer. We 
had tried to regulate the amount of 
time they spent at the computer with 
a timer, but it frequently stopped 
children in the middle of an activ- 
ity, which they found very frustrat- 
ing. When other activities were 
also available, we found that chil- 
dren stayed at the computer an 
average of about 20 minutes, 
which allowed the opportunity for 
several groups to use the com- 
puter during a 90 minute session. 

The teachers were asked to 
interact with the children at the 
computer to the same extent 
they would if the children were 


engaged in the usual classroom 
activities. Teachers usually let the 
children play independently, un- 
less their help or company were 
actively sought or seemed to be 
needed by a child. The teachers 
followed this same partem when 
children were at the computer. We 
came in to observe the children 
interacting at the computer three 
times per week over a two-month 
period during the summer. 

Initially, we thought that a stan- 
dard keyboard might be too con- 
fusing for the children, that the 
children might accidentally dam- 
age the computer or that the 
children might be too young to 
work cooperatively at the com- 
puter. As the study progressed, 
we realized that we had drasti- 
cally underestimated the chil- 
dren's capabilities on all counts. 

What we found was that 
under these carefully managed 
circumstances the preschoolers 
spontaneously shared use of the 
computer and helped each other 
with minimal intervention from 
teachers. They were well able to 
use the standard keyboard, and 
had little trouble finding the right 
key to make the simple single-key 
responses required. Working as 
teams the preschoolers would 
often help each other pick out the 
correct key by pointing to it or 
telling the other child where it was. 
Although they did occasionally 


ask for a teacher's opinion or help 
if one was nearby, they usually 
worked with other children, inde- 
pendently of the teachers. 

Interestingly, the children's help 
to each other was mainly through 
verbal instructions rather than by 
pointing or pressing the key for 
the other child. For example, they 
would say, ' 'You forgot to press 
RETURN," or they would say the 
ABCs to help the other child figure 
out the letter that was missing in 
the five-letter sequence on the 
screen. We and the teachers had 
imagined that preschoolers would 
have more trouble explaining things 
to other children than they did. So 
preschoolers were able to work 
cooperatively at the computer, 
seemingly without requiring more 
teacher attention than usual. 

We were also interested in 
seeing if children would choose 
to work alone at the computer or 
with others. We found that the 
computer did not seem to disrupt 
normal social activity in the class- 
room. Children preferred to work 
with someone and would often 
look for another child to work with 
them at the computer. This did not 
seem to be because they were in- 
timidated by the computer, but 
because it was more fun to play 
with another person than alone. 
The fact that helping and sharing 
behaviors were common suggests 
to us that computers could be a 

" 
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focus for children's social interac- 
tions as well as any other enjoy- 
able activity. 

Clearly, our findings show that 
with age-appropriate software 
even preschoolers are capable of 
interacting with a computer and 
working cooperatively with their 
peers, without the need of con- 
stant supervision by teachers. 
That preschoolers can perform 
competently at the computer is 
interesting, but to what purpose 
does one introduce the computer 
to children of this or any age? 

One reason you might want 
to introduce a child to computers 
and computing at an early age is 
to develop computer literacy. This 
can consist of at least two levels: 
computer awareness and a work- 
ing knowledge of how to use com- 
puters to perform certain tasks. 

Computer awareness means 
many things to many people, but 
in general we can say that it means 
a familiarity with how computers 
work, what tasks they can and 
can't perform, and the contexts in 
which computers may be found. 
Computer awareness can be said 
to be a type of "computer readi- 
ness" or stage of preparedness 
to learn to use computers. For 
example, even a very young child 
can be familiarized with the way 
computers look and operate. 

I'm sure everyone is acquainted 
with at least one adult who is a 
computerphobe. That is, a person 
who is afraid to have anything to 
do with a computer. This fear is 
simply due to their lack of famil- 
iarity with computers. If children 
are introduced to computers be- 
fore they have had a chance to 


develop fear of computers, they 
will be more likely to be willing to 
learn to use it for various types of 
applications. Young children are 
naturally confident of their abilities 
and preschool may not be too 
early to begin to get children 
comfortable with this important 
tool, if it can be done in a relaxed 
and enjoyable way. 

Further, since computers can 
be used to present school material, 
they can be used to introduce or 
improve academic skills. There 
are a number of characteristics 
that computers have which may 
make them particularly suited for 
this function. 

First of all, children seem 
to enjoy working with material 
presented on the computer more 
than with material presented in a 
traditional manner on paper or 
blackboard. This may in part be 
due to the novelty of the computer 
itself, or because it is possible to 
introduce animation into the 
programs, which makes them 
more visually stimulating. 

Second, material presented 
on the computer can be paced by 
the child more readily than in the 
traditional classroom setup. And 
the rewards administered by the 
computer are likely to be more 
accurate and timely than those 
presented by a human teacher with 
many other children to attend to. 

Finally, children may be less ex- 
posed to shame and ridicule if they 
make a mistake, since their mis- 
takes are not publicly exposed, 
and because the feedback from a 
computer does not convey the 
negative emotions that correc- 
tions by an individual might. 
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It has been argued that because 
of the possibility of interactive 
feedback, the computer can be 
an important tool for stimulating 
problem-solving abilities in children. 
Seymour Papert and his colleagues 
at the Massachusetts Institute of 
Technology have developed a 
programming language called 
LOGO, which is designed to be 
easy for children to learn and to 
provide optimal opportunity for 
the stimulation of programming 
or problem -solving skills. Through 
use of simple English-like com- 
mands, children can almost imme- 
diately produce interesting designs, 
by directing the motion on the 
screen of a cursor called a "turtle". 

This type of interaction with a 
computer provides the child with 
a working knowledge of how they 
can control what the computer 
does. LOGO is designed to incor- 
porate many of the basic ideas 
underlying computer program- 
ming. Thus, using LOGO can 
provide an added dimension of 
involvement with the computer 
by showing that it is a unique in- 
strument, rather than simply a 
technologically advanced method 
for presenting traditional material. 
Even preschoolers can master the 
rudiments of LOGO, since it need 
not require reading ability. LOGO 
activities can illustrate principles 
such as the ability to save informa- 
tion, recursion, editing, building a 
greater whole from component 
parts and so on. Some have ar- 
gued LOGO may provide better 
preparation for learning computer 
languages than learning one of the 
existing programming languages, 
which may soon be out of date. 
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However, the purpose of LOGO 
is not to train programmers or to 
take the place of other program- 
ming languages, but to stimulate 
children's ability to intellectually 
explore and to provide an enjoy- 
able environment for this explora- 
tion. This is the type of intellectual 
activity that has not had much 
place in schools until now. Most 
formal education concerns the 
learning of specific information 
and skills such as reading, arith- 
metic, history etc. On the other 
hand, LOGO's format seems to 
stimulate children's curiosity con- 
cerning the way computers work, 
which in small part is curiosity 
about how the world works. 

However, the availability of this 
powerful tool alone will not neces- 
sarily improve the intellectual 
quality of education for most chil- 
dren. Because, unlike the case in 
which structured academic mate- 
rial is presented, LOGO requires 
well-trained and qualified teachers 
to implement LOGO-learning en- 
vironments that can do justice to 
its potential. 

It is too early to say with any 
certainty what specific gains might 
occur in children's future perfor- 
mance as a result of working with 
computers. However, these are 
some of the benefits that many 
people think may occur if young 
children are exposed to computers 
in a playful and enjoyable way. 

(Editor's note: For coverage 
of how preschoolers across the 
country are using Commodore 
computers at Kinder-Care day- 
care centers, see the last issue 
(#24) of Commodore.) C 
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Fox§©Lnr 

Presents 

Opryte3yter ,u 

For the Commodore 64' 

The user allectionate sprite development 
program. Menu-driver\ Mono/Multicolor sprites, 
joystick/keyboafd. Taps/Disk. 20K w/FAST 
machine language routines. Over 60 com- 
mands: ROTATE (any angle 0-360). INVERT/ 
OBVERT. SHIFTS. SYMMETRY, AND/OR. 
REVERSE. REVtEW, MOVIE (animation). 
Create and Edit up to 128 sprites per hie. 
For programming efficiency and FUN 1 


PLUS 
The Game Maker 

Automatically prepares a base tor game de- 
vetopmenl-up to 32 sprites WITHOUT DATA 
STATEMENTS' Adds SPEED to your games. 
Saves memory too 

— — a— ^-»* <i i ^— — ' 

Toorder. Send check (U.S. Funds) S29.95 lor 
Casselte, $34.95 for Disk. Dealer inguiries 
invited. 


P.O. Box 507 

Deer Park, Texas 77536 

(713)473-6723 

A Division of Foxtirc Systems, ire 




con:iol a 99c toy moior so effectively that it ^ 
runs like a precision machine? Or I fiat you can m 
build an accurate digital tFieimometer using £ 
the VIC anfl four parts costing less than S5 7 

Tiese ana other 18 rnterfaang projects 
selected 'or usefulness, ease of construction g 
and low cosl are detailed in the VIC 20 Inter- fj 
lacmg Blue Book, a veritable gold mine of prac- 
tical information on how lo build a variety of in 
terraces for your computer 

Projects include. Connecting VIC to your 
ste/eo: Pjckprool digital lock; Capacitance 
meter. Liquid level sensor, Telephone dialer, 
Voice output, BK/16K RAM/ROM expansion. 
!28K RAM expansion. 6-bil precision D'A. Bbit 
A/D converter. MX-80 interlace and mo-R 

Written by a college professor in a friendly 
and mfoimafive styJe. the Blue Book gives you 
tneory of operation, schematics, program 
listings, parts list, construction hints and 
sources of materials for each one of the 20 pro- 
jects. 

If you want to get the most out of your VIC 
this book is a must Cost is S14.95 [less than 
75s pet proiectl). Price includes postage r» 
■ ■ ■ ■ ■ MT 


$ ?5« pe' proiectl). 


VIC 20 i 


of Cnmmooore Electronics Lii 


micr-nsignal De P tc& 

PO. BOX 32 
MILLWOOD NY 10546 

Please sand me a copy ol the Blue Book, 
Enclosed my check for 5 
NAME __ 


Above prices include postage In the 
U S CA res add 6 : = tax Foreign add S2 


i BUSSter 

L oo — 

LABORATORY INTERFACES 
FOR COMPUTERS 



ANALOG AND DIGITAL 
INPUT/0UT0UT 

The BUSSler interfaces provide 
analog and digital connections 
between any computer with an 
IEEE-488 or RS-232 interface 
and real world events. Each 
BUSSter product is self-contain- 
ed, with its own case and power 
supply. They allow data acquisi- 
tion while your computer is busy 
with other tasks. Built-in timer 
operates from .01 seconds to 48 
hours. 

• BUSSter A64 — 

64 channel digital input module 
to read 64 digital signals. Built-in 
buffer $495,00 

• BUSSter B64 - 

64 channel digital output module 
to output 64 digital signals 
$495.00 

• BUSSter C64- 

64 channel digital input/output 
module to input 32 andoutput32 
digital signals. Built-in buffer 
$495.00 

• BUSSTER D16 — 

16 channel analog input module 
to read up to 16. analog signals 
with 8 bit resolution (%%). Built-in 
buffer $495.00 

• BUSSter D32 — 

32 analog channel version of the 
D16 $595.00 

Add the suffix -G for IEEE-488 
(GP1B) or -R for RS-232. 

All prices are USA only. Prices 
and specifications subject to 
change without notice. 

30 DAY TRIAL - 
Purchase a BUSSter product, 
use it, and if you are not com- 
pletely satisfied, return it within 
30 days and receive a full refund. 

US Dollars Quoted 

$10.00 Shipping & Handling 

MASTERCARD / VISA 


Connecticut microcomputer, Inc. 

INSTRUMENT DIVISION 

36 Del Mar Drive 

Brookfield, Ct. 06804 

(203) 775-4595 TWX: 710-456-0052 
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programmer's tips 


Fill In The Blanks 


by Allen Patterson 


A fill-in-the-blanks program for computer 
assisted instruction. This particular 
version of the program, which will run 
on any Commodore computer, helps 
students learn the correct forms of 
French verbs. But the program can be 
modified to accommodate many other 
applications. For any computer except 
the Commodore 64, delete line 98 in 
the program listing. 

One of the most valuable assets that comput- 
ers bring to education is their ability to supply im- 
mediate feedback in a non-threatening manner. 
However, if a new program has to be written (re- 
quiring valuable teacher s time) for every new skill 
that a student is expected to master, the value of the 


computer diminishes. In addition, in order for the 
computer to be truly effective in the classroom, it 
should present material consistent with other edu- 
cational methods that have withstood the test of 
time. For example, many educators have relied 
upon a "fill in the blanks" type of exercise to rein- 
force learning, provide practice and review material. 
The computer can quite easily take this proven edu- 
cational strategy and improve on it. Not only will the 
computer reward the student for correct responses 
but it will present the questions in a random order 
with the possibility that questions not answered cor- 
rectly could be repeated. Alternately, these incor- 
rectly answered questions could be recorded on 
paper for future reference. 

The following program is set up so that the "fill in 
the blanks" sentences are located in data statements 
and can be changed at any time — by anyone. In the 
example that follows, the correct form of the French 
verbs etre, avoir, or aller are to be inserted. This 


9 REM 


************************ 

10 REM 


** FILL IN THE BLANKS ** 

15 REM 


************************ 

20 : 



30 : 



5 REM 


THIS PROGRAM WRITTEN BY 

60 REM 


ALLEN PATTERSON 83/3/24 

61 : 



6 2 REM 

BOX 

178, BRAESIDE, ONTARIO 

6 5 REM 

CANADA K0A 1G0 (613)6 23-6867 

70 : 



7 5 REM 

COPYRIGHT (C) 1983 

78 : 



80 REM 

TO 

ENTER DATA — FIRST RUN PROGRAM 

81 REM 

AND 

PUSH STOP BUTTON SO THAT YOU 
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82 1 

REM WILL HAVE UPPER AND LOWER CASE 


83 I 

REM LETTERS. 


84 



85 

: 


98 

POKE 59468,14 


99 1 

MJ=25 


100 

D$ = " [HOME,DOWN6] " :DIM F (NU) ,F$ (NU) ,QS (NU) ,ANS (NU) 

,AW$(NU) 

110 

FOR S=l TO NU:READ Q$ (S) , ANS (S) : NEXT S 


145 

TTS="ETRE, AVOIR, ET ALLER" 


150 

PRINT" [CLEAR] " ;D$;TAB (LEN (TT$) /2) ;TT$ 


160 

PRINT" [DOWN2] ECRIVEZ LA FORME CORRECTE DU VERBE DANS LE TIRET." 

165 

GOSUB 600:REM IF STUDENT CHOOSES # OF QUESTIONS 

THEN USE:GOTO550 

170 

: 


200 

j=j+1:as="": IF j>nu then 1000 


205 

REM IFJ>NE THEN 1000:REM USE THIS LINE IF STUDENT SELECTS : OF 


QUESTIONS 


210 

K=INT(RND (1) *NU+1) : IF F(K)=1 THEN 210 


220 

F(K)=1:F$(J) =Q$(K) : AW$ ( J ) =AN$ (K) 


230 

: 


240 

B = B+1:X$=MID$ (F${ J) ,B, 1) : IF X$ = "*"THEN X = B-1:B = 0: 

GOTO 260 

250 

GOTO 240 


260 

PR$=LEFT$(FS(J) ,X)+" " +RIGHT$ (F$ ( J) ,LEN(F$(J) )-(X+l) ) 

262 

PRINT" [CLEAR] " 


300 

IF LEN(PR$)<40 THEN PRINT D$;PR$:GOTO 400 


305 

1 = 40 


310 

I=I-1:X$=MID$(PR$,I,1) :IF X$<>" "THEN 310 


320 

Y=I 


3 30 

PRINT D$;LEFT$(PR$,Y) : PRINT" [DOWN] " ; RIGHT$ (PR$ , LEN (PR$) -Y) 

350 

: 


400 

GET AN$:IF AN$<>""THEN 400 


405 

GET AN$:IF AN$=CHR$ ( 13 ) THEN 500 


410 

IF AN$=""THEN 405 


412 

IF AN$=CHR$(20)OR AN$=" "THEN 420 


413 

IF ANS>CHR$ (192} AND AN$<CHR$ ( 219) THEN 420 


415 

IF AN$<CHR$(65)OR AN$>CHR$ { 90) THEN 405 


420 

A$=A$+AN$ 


425 

IF LEN(A$)>10 THEN 500 


426 

IF ANS=CHR$(20)AND LEN(A$)=1 THEN A$="":GOTO 405 


430 

PRINT DS;TAB(X+1) ;" [RVS] ";A$ 


435 

IF AN$=CHR$(20)THEN A$=LEFT$ (AS , LEN (A$) -2) 
:PRINT DS;TAB(X+1) ;" [RVS] " ; A$ ; CHR$ ( 148) 


440 

GOTO 405 


450 

: 


500 

IF A$=AW$(J)THEN PRINT" [ DOWN6 , RVS] CORRECT ![ RVOFF] 
GOSUB 600 :GOTO 200 

" :R=R+1: 
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510 PRINT" [DOWN3,RVS] INCORRECT [RVOFF, SPACE] — THE ANSWER IS: " ;AW$(J) 
512 IF LEN(PRS)<40 THEN PRINT" [DOWN] " ; PR? : PRINT" [UP] "; TAB (X + l) ; 

"[RVS]";AW$<J) :GOTO 517 
514 PRINT" [DOWN] " ; LEFT$ ( PR$ , Y) : PRINT" [DOWN] ";RIGHT$ (PR$,LEN (PR$) -Y) 

516 PRINT" [UP3] " ;TAB (X+l) ;" [RVS] " ;AW$ (J) 

517 REM: F (K) =0 : J=J-1: REM USE THIS LINE TO HAVE INCORRECT 
QUESTIONS REPEATED 

520 GOSUB 600:GOTO 200 

600 PRINT" [DOWN4 ,RIGHT7] PUSH [RVS] SPACE BAR [RVOFF, SPACE] TO CONTINUE" 
605 GET G$:IF G$<>""THEN 605 
610 GET G$:IF G$<>" "THEN 610 
615 PRINT" [CLEAR] " 
620 RETURN 
680 : 

690 REM DATA GOES HERE: PUT QUOTATION MARKS AROUND QUESTIONS WITH 
A COMMA 

693 : 

694 REM PUT QUESTION THEN COMMA THEN ANSWER 

695 : 

696 : 

700 DATA"TU*L'AMI DE GEORGES?", ES 

710 DATA"LA FILLE*FAIM. OU SONT LES SANDWICHS?" , A 

720 DATA"MONSIEUR LEBLANC*DANS LE RESTAURANT .", EST 

730 DATA"NOUS*DINER A MIDI . " , ALLONS 

740 DATA"J'*CINQ ANS . QUEL AGE AS-TU?",AI 

750 DATA"OU EST-CE QUE VOUS*? JE VAIS A L ' ECOLE. " , ALLEZ 

760 DATA"LES GARCONS*TRES GENTILS . " , SONT 

770 DATA"MAMAN*DEVANT LA MAISON AVEC PAPA . ", EST 

780 DATA"JE*TRES CONTENT QUAND IL NEIGE.",SUIS 

790 DATA"MADAME, VOUS*LA SOEUR DE MADAME LEBRUN . " , ETES 

800 DATA"TU*JOUER AU HOCKEY APRES LES CLASSES?" ,VAS 

820 DATA"LE CHIEN*A COTE DE LA MAISON.", EST 

830 DATA"LES STYLOS DE MONSIEUR*SUR SON BUREAU. ", SONT 

840 DATA"ELLE*AU PARC POUR NAGER." f VA 

850 DATA"ILS*SOMMEIL PARCE QU'IL EST DEUX HEURES DU MATIN. ",ONT 

860 DATA" JACQUELINE ET MOI*VISITER LA VILLE DE MONTREAL .", ALLONS 

870 DATA"PIERRE ET GEORGES*LES FRERES DE SUZANNE .", SONT 

880 DATA"TOI, TU*MON CHANDAIL, N' EST-CE PAS?" , AS 

890 DATA"ELLES*CHANTER A LA SOIREE. " ,VONT 

900 DATA"GEORGES N'*PAS DE SOEURS.",A 

910 DATA"NOUS*DANS LA MEME CLASSE QUE MARIE .", SOMMES 

920 DATA"JE*PARLER AU DOCTEUR . " , VAIS 

930 DATA"CHANTAL ET MOI, NOUS*DE TUQUES BLEUES . " , AVONS 

940 DATA"VOUS N'*PAS DE SOULIERS . " , AVEZ 

950 DATA"ELLE*RESTER A LA MAISON PARCE QU'ELLE EST MALADE.",VA 
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1000 PE=INT( (R/fJ-1) )*100) 
1020 POKE 59468,12 
1030 PRINT" [CLEAR, DOWN4] YOUR 
8999 END 


PERCENTAGE IS 


PE 


demonstrates the versatility of the program. 

To fully appreciate the potential of the program, 
we should analyse each section individually. 

Line 98 sets upper/lower case character mode. 

Line 99 sets the number of questions to be asked 
(25 in the example). 

Line 100 D$ is the location on the screen where the 
sentence will be printed. The dimension of 
variables is set at 25. (This will be changed 
if more or less than 25 questions are to 

be used.) 

Line 110 reads the 25 questions and answers. 
Lines 140-160 print the title and instructions. 

Line 200 J is the question number being asked 

this time and limits the program to 25 ques- 
tions. A$ is the answer input by the student 
and is set to be empty. 

Lines 210 to 220 select a random number and 
then check to see if it has been selected 
before. If it has, a new number is selected. 
Setting F(K) = 1 indicates that K has now 
been selected. F$(J) and AW$(J) are the 
question and answer to be dealt with this 
rime around. 

Lines 240 to 260 insert the blank in the proper 
place in the question. 

Lines 300 to 330 insure that no words wrap 
around the screen. If the length of the 
statement is less than 40, it is printed. 
Otherwise, a space is found and the state- 
ment divided into two lines before printing. 

Line 400 eliminates any accidental entries. 

Lines 405 to 440 get entries one at a time and 

print them in the blank in the sentence. 

Lines 415 and 416 eliminate unwanted 


entries (e.g., graphics). 
Line 425 limits the length of the answer 
to ten characters (this may be altered 
as needed). 

Lines 500 to 520 separate correct and incorrect 
responses. The word "correct" could be 
replaced by a suitable graphics subroutine 
to be called up at this time as a reward. 
(Don't forget to POKE 59468,12 before 
the graphics characters are needed and 
POKE 59468,14 after the subroutine is 
completed and before returning.) If the 
answer is incorrect, the correct answer is 
given. Use line 517 if you wish this question 
to reappear sometime later. In addition, the 
question answered incorrectly could be 
printed on paper if desired. 

Lines 600 to 616 are used as a subroutine to halt 
the program until the space bar is pressed. 
Line 605 eliminates premature return from 
the subroutine. 

Lines 690 to 698 are instructional reminders that 
the data should be entered with the use of 
quotation marks. This allows for the use 
of commas in the sentences. Don't forget 
to put an asterisk where the blank is to 
be inserted. 

Lines 700 to 950 are the data statements. 

Line 1000 computes a percentage score. 

Line 1020 returns computer to graphics mode. 
Once again a graphics reward routine 
could be used instead of line 1030. 

Another variation would be to ask the user how 
many questions he/she would like to try. Get this 
number by using a subroutine similar to lines 400- 
440. The following changes would work: 


L 


L 
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165 GOTO 550 

205 IF J>NE THEN 1000 

550 PRINT" [DOWN3] HOW MANY QUESTIONS WOULD YOU LIKE TO TRY?" 

560 GET K$:IF K$<>""THEN 560 

565 H$ = "" 

570 GET K$:IF K$=CHR$ ( 13) THEN 580 

571 IF K$=""THEN 570 

572 H$=H$+K$:IF LEN(H$)>2 THEN 580 
575 PRINT K$;:GOTO 570 

580 NE=VAL(H$) : IF NE>0 AND NE<26 THEN 590 

585 PRINT:PRINT"CHOOSE A NUMBER BETWEEN 1 AND 

NEXT T :GOTO 150 
590 GOTO 200 


";NU 


FOR T=l TO 1000: 


As you can see, this program would be very use- 
ful and very adaptable. In fact, many of the above 

H 


subroutines would fit nicely into other programs of 
your own. c 



What does COMMODORE 

have that Apple, 

Radio Shack 

and IBM 


don't? 


TM 


bAckpAck 

BATTERY BACKUP SYSTEM 

For CBM™/PET® 2000, 4000, 8000, and 
9000 series computers and CBM 4040/ 
8050 dual disk drives. Installs within the cab- 
inets of the computer and disk drive. Recharges 
continually from the machine's own power supply and 



automatically supplies 30 minutes (max.) of 
reserve power during outages. Also eliminates 
surges and spikes. User installable. 

n Canada call: Van-Hoy Group (604) 542-1 138 or (604) 545-0794 
In United Kingdom call: Wego Computers (0883) 49235 
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PETSpced Tips 


by Joe Rotello 


We're happy to have our 
PETSpeed expert from 
Tucson begin a regular 
column with this issue, 
so our readers can keep 
up with the latest develop- 
ments for using this popular 
BASIC compiler to their 
best advantage. 


Welcome to PETSpeed Tips! 
This column will be devoted to 
the pursuit of PETSpeed™ and 
the Integer BASIC Compiler™. In 
response to many requests for 
data, tips, "inside information", 
programming aids and program 
reviews, this column is dedicated 
to Commodore users everywhere. 
Please support us and help keep 
this column going by sending 
us your questions, problems, ideas 
and any software that you have 
put under PETSpeed and/or 
Integer BASIC. 

We will try to include topics 
relating to each Commodore 
magazine issue "theme" as well. 
This month we will discuss some 
topics related to business uses of 
PETSpeed/Integer BASIC. 


PETSpeed Update 

In early May a new version 
of PETSpeed was introduced. 
Version 3.0 now allows for use 
with the PET "fat forty" computer 
as well as the 8000 series CBM. 
Memory locations immediately 
below the start of BASIC, decimal 
1023 and below, are no longer 
required by PETSpeed. 

PETSpeed for the Commodore 
64 is now out. The operating pro- 
cedure is nearly exactly the same 
as in the PET/CBM version. The 
program cannot be run as it is 
received, however. The user must 
first make two backup copies on 
the 1541 disk drive: a "PETSpeed 
Master" and a "Utilities Master". 
The programs have to be split over 
two disks due to the large number 
of PETSpeed system and utilities 
programs present. 

The Commodore 64 "security 
podule", otherwise known as a 
dongle, is placed into either the 
cassette port or control port 2, 
depending on which podule type 
is supplied. Note that, as in the 
case of the 8000 series version, the 
security podule/dongle is required 
only for compiling the actual 
BASIC source code. 

When compiling on the Com- 
modore 64/1541 system, the disk 
should contain only the PETSpeed 
system programs and the BASIC 


source code. Disk space is at a 
premium on the single drives 
compared to the dual disk drives. 
With the advent of PETSpeed 
on the 64, users and programmers 
now have a viable way to generate 
and make excellent use of fast 
and efficient business programs 
where the speed of compiled 
BASIC is necessary. 

Questions & Answers 

Q: Can PETSpeed be used to 
compile an existing business pack- 
age, for example an accounting 
system that presently runs on the 
PET/CBM/Commodore 64?? 

A: Yes, but with a few precautions: 

a) Under many circumstances, 
the BASIC source code must not 
contain any machine language 
SYS calls. Although most problems 
with this situation can be pro- 
grammed around, such changes 
are best left to experienced 
programmers. 

b) Since the compiled version of 
the program(s) will take up more 
disk space than the BASIC counter- 
part, be careful to not run out of 
disk space, especially when the 
program suite consists of multiple 
programs on the same disk. This 
problem will be most evident on 
the 1541 disk drives, where it is 
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common to store both programs 
and data on the same disk. 

c) We are beginning to see 
many software suppliers rerelease 
their business and homeowner 
software in PETSpeed versions. 
This should aid in clearing up any 
potential problems caused by (a) 
and (b) above. 

Q: How can PETSpeed access a 
machine code subroutine?? 

A: The instructions and charts 
included with the PETSpeed 
manual are indeed a little dry. But 
by careful examination and trial- 
and-error testing on a simple pro- 
gram, the method of accessing 
variables is very clear. The key is 
to locate where PETSpeed stores 
your variables and subscripts. This 
is made easy by the REPORT pro- 
gram present on the PETSpeed 
system or utility disk. 

It is easy to allow PETSpeed 
to work with machine language 
routines if those routines are 
POKEd into memory via data 
statements. In that case, make sure 
that the machine language does 
not conflict with the PETSpeed 
program. Again, refer to the PET- 
Speed system map and the output 
from the REPORT program. 

We will be discussing variables, 
and how they are treated by 
PETSpeed, in our next column. 

Q: Can PETSpeed be used in a 
modem program? 

A: We assume that you mean, 
"can an existing operational 
modem program be compiled?" 
In general, yes. If the data char- 


acter conversions (ASCII to PET, 
PET to ASCII) are carried out in 
BASIC, the PETSpeed version 
will not only operate easily at 300 
baud, you will be able to add more 
options to your modem program 
without affecting the overall pro- 
gram performance. Be sure to 
read the two Q/A above for further 
information. 

Q: I have a BASIC program that 
does bit-level work. Will it function 
under PETSpeed? 

A: With a few reservations, yes. 
We have not yet seen a bit-level 
BASIC program that did not func- 
tion well under PETSpeed. By the 
way, bit-level execution under 
PETSpeed is about five times as 
fast as the BASIC counterpart. 

The reservations concern the 
long code that many programmers 
use in BASIC, sometimes ex- 
ceeding 75 characters! PETSpeed 
may need the source code line 
broken up into two distinct parts in 
order to accept it. 

Q: I have heard a rumor that 
it is possible to change a BASIC 
program to get up to 50% faster 
execution under PETSpeed, than 
even PETSpeed normally does. 
Is this true? 

A: True, but 25% to 30% is a 

better figure. See this month's tips 
section below. 

PETSpeed Tips 

Did you know that even 
PETSpeed can be given a boost? 
Well, not PETSpeed itself, but by 
making very minor changes in 


your BASIC source code, you can 
gain even more speed out of the 
compiled version. Here are a 
couple of tips: 

1. Under PETSpeed, POKEs and 
PEEKs can be negative numbers! 
(What?) PETSpeed allows nega- 
tive numbers to be assigned to the 
PEEK/POKE ranges you request. 
See Program 1 for a small sample. 
This program is intended to be 
compiled (the negative POKE 
routine won't work in BASIC) and 
the times required to fill the screen 
will be displayed. The range of 
POKEs will have to be modified 

if you have a 40-column PET, 
and the POKE values themselves 
will have to be changed for the 
Commodore 64. 

2. In CBM BASIC, the CMD 
command can and is used to 
change the default output device; 
any print commands carried out 
after the CMD are directed to the 
device that you CMD'ed (sorry, 
bad English) until you turn it off 
with the appropriate PRINT # 
command. Nice in BASIC; even 
faster when compiled under 
PETSpeed. An example is: 

PROGRAM: PETSPEED EX 

10 OPEN 5,8,8,"0:TEST 

,S,W" 
20 CMD 5 

30 FOR 1=0 TO 100 
35 PRINT I 
50 NEXT 
60 PRINT#5 
70 CLOSE 5 
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You are reading correctly. 
Line 35 says "PRINT I" instead 
of the familiar "PRINT #5,1". And 
likewise, line 60 has to have the 
"PRINT #5" command in it in 
order to insure that the file is 
properly closed. 

Using this method, file data 
transfer is about 15% to 25% faster 
than the traditional BASIC code. 

Ok, now for the goodie we 
promised. See Program 2? Ok, 
that program is made to be com- 
piled exactly as shown (well, you 
can have different line numbers if 
you want), and it reads the simple 
data laid to disk by the program 
above. Lines 20 and 40 are NOT 
misprints. Under PETSpeed, they 
are valid operators and commands. 

The beauty of the code is that 
the file data transfer rate of the 
PETSpeed version of Program 2 
is about 30% faster than the 
PETSpeed version of a so-called 
"normal" way of coding!! 

Aha! There ARE ways to give 
even PETSpeed a helping hand! 

Feet free to use the above 
ideas in your own programs and 
enjoy NEW! MORE POWERFUL! 
PETSpeed!! (Commercial is over) 

Remember, the code shown in 
Programs 1 and 2 will not work in 
BASIC. They are made especially 
to be compiled under PETSpeed, 
or to be part of a BASIC source 
code that will be compiled later. C 


Program 1: PETSpeed with Negative POKEs 


10 PRINT" [CLEAR, UP] "; 

20 INPUT"WHICH POKE (NEG (OR) POS)";A$ 

25 IF A$="P"THEN 100 

30 IF A$="N"THEN PRINT" [CLEAR, UP] ";: TI$=" 

000000":FOR I=-32767 TO-30768 
40 POKE I, 156: NEXT: PRINT" [HOME,DOWN2] " 

;TI/60" SECONDS" 
45 GET A$:IF A$=""THEN 45 
50 GOTO 10 
100 PRINT" [CLEAR, UP] "; : TI$="000000" :FOR 

1=32767 TO 34687 
140 POKE I, 156 : NEXT; PRINT" [HOME, D0WN2] 

";TI/60" SECONDS" 
145 GET A$:IF A$=""THEN 45 
150 GOTO 10 


Program 2: PETSpeed with Fast File Transfer 


10 

OPEN 5,8,8, 

"0: 

TEST 

rS 

,R" 

20 

#5 





30 

FOR 1=0 TO 

100 




40 

GET A$ 





50 

PRINT A$; 





60 

NEXT 





70 

PRINT#5 





80 

CLOSE 5 
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Calling on LOGO and EXP() 


by C. D. Lane 


So you always thought logarithms didn't 
have anyplace in programming, did you? 
In this very clear explanation of what 
could be a murky subject, C. D. Lane 
shows how logs can work, directly and 
indirectly, to add speed and power to 
your programs. 


Tables of logarithms were first 
published in 1641 by John Napier, 
and logarithms are still in use to- 
day. Even the BASIC language on 
your microcomputer uses them 
in the guise of the numeric func- 
tions EXPO and LOGO. Some of 
us may remember that logarithms 
are the basic mechanism behind 
the slide rule (the devices scientists 
carried on their belts before cal- 
culators) (just as computers on 
belts will come into fashion!). 
What do logarithms do and what 
use are they in programming? 

A logarithm is an exponent. 
It is defined in terms of a base. 
The logarithm of a number is the 
power the base has to be raised to 
in order to equal the number. One 
can take logarithms of any positive 
number greater than zero (the 
domain of logarithms), and the 
logarithm itself can be any real 
number (the range). 

Although logarithms can use 
any number as a base, only a few 
are commonly used. In mathe- 


matics we learn about logarithms 
of base ten (common logarithms 
or Brigg's system), the base of our 
number system. The base of our 
computer's number system is two, 
and this base for logarithms is 
useful for computer work which 
we will discuss later. Another com- 
mon base for logarithms is the 
constant e. 

Logarithms to the base e 
(2.71828183 in our microcomput- 
er's floating point) are called natu- 
ral logarithms and are notated 
Sn(). They are "natural" since 
various events in nature can be 
quantified using the natural log 
(such as the decay rate of capac- 
itors). The natural log is the one 
included on Commodore com- 
puters, among others. You can 
find out what base your com- 
puter uses by evaluating EXP( 1 ) , 
that is the base raised to 
the first power. 

The Definition of In () 

The /n(X) (natural log of X) is 


defined by calculus as the area 
from 1 to X under the curve 1/X 
(see Figure 1). We can also calcu- 
late logarithms using polynomial 
or series evaluation. This is the 
method our computer uses. Series 
evaluation is a relatively fast 
method that allows us to get as 
close an approximation as we 
need, although not always the 
exact solution provided by cal- 
culus. In our computer's BASIC 
interpreter are tables of constants 
for doing this evaluation. 


CURVE Y=1/X 


SHADED AREA 
= LN(X) 



12 3 4 5 


Figure 1: The Area Definition 
of the Natural Log In 


Logarithms have special prop- 
erties that make them very im- 
portant. One property of logs is 


L 
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thatlog(A*B) = log(A) + log(B), 
along with the variants that can be 
derived from this property: 

log(A/B) = log(A) - log(B) 

log(A B ) = B*log(A) 

The EXPO function is the 
inverse of the ln() function, 
the antihg, meaning that A = 
exp(log(A)) = log(exp(A)). The 
notation EXP(X) is just another 
way of notating e x ; both are 
equivalent. The EXP() function 
has the same properties as any 
exponent, such as: 

exp(A)*exp(B) = exp(A + B) 

exp(A) B = exp(A*B) 
Now if we combine the logarithms 
with the EXP() function we get: 

A*B = exp(log(A*B)) = 
exp(log(A) + log (B)) 

A/B = exp(log(A)-log(B)) 

A B = exp(B*log(A)) 

This means we can multiply by 
adding, divide by subtracting and 
raise to a power using multiplica- 
tion; all the tricks the slide rule uses. 

t CURVE Y=LN(X) 



LN(1/2) = -LN(2) 


Figure 2: Comparison of 
Logarithms Along y=ln(x) 

11 


Some of these relationships can 
be seen graphically in Figure 2. 

We can see from Figure 2 why 
logarithms of zero or less are not 
allowed; the function approaches 
but never quite reaches zero. The 
function crosses the X axis at (1,0) 
or log(0) = 1, for all bases. 

Now that we have established 
what logarithms are, how are they 
used in our microcomputer? If we 
time the following equivalent ex- 
pressions on our computer over 
a range of values we notice a 
surprising result. 

10 C=fltB 

20 C«EKPCB#LCB3<fl)5 

The time it takes to do the sec- 
ond expression is only slightly 
longer than the time it takes to do 
the first — not an intuitive result 
based on the apparent difference 
in complexity on first glance. If we 
dig a little deeper, however, we 
find that BASIC uses the code for 
LOGO and EXPO to evaluate ex- 
pressions using the f operator! 
In fact the evaluation of the t 
operator is done along the same 
lines as the second expression 
above. The reason it takes slightly 
longer to evaluate the second ex- 
pression is that this expression 
does its function calls from BASIC 
while the first expression does 
its function calls in machine lan- 
guage. Did you realize that every 
time you used t (or even SQR()) 
in your program you were actually 
using those functions LOGO and 
EXPO which you thought you 
never use? 


Another Useful Base 
for Logarithms 

Another useful base for 
logarithms, for us computer fans, 
is two, the number base of our 
computer. (For an introduction to 
the base two number system, see 
Jeff Hand's article in Issue 24.) 
Another special property of 
all logarithms is that given any 
logarithm function in one base 
we can derive logarithms in any 
other base: 

log a B = log n B/log n A 
To get logarithms of base two 
on our computer we can do the 
following: 

10 DEFFNL2<X>=L00OO/L0G<2> 

where FNL2(X) gives us log 2 (X). 
One can define a logarithm of 
base ten, or any base, in a similar 
fashion. Now how are /n() and 
log 2 () useful to us beyond their 
scientific uses? One use of loga- 
rithms allows us to examine the 
number system of our computer. 
Our computer manual tells us 
that the maximum and minimum 
numbers our computer can repre- 
sent are 1.70141183 * 10 38 and 
2.93873588 * 10" 39 . Rather rag- 
ged looking numbers; where do 
they come from? If we take their 
log 2 we get 127 and -128, even 
powers of two, the base of our 
number system. This means that 
for our computer the maximum 
and minimum numbers we can 
represent are 2 127 and 2" 128 . Our 
manual also says that we can use 
EXPO on numbers between and 
88.0296919, and with our new- 


I 
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$333- 
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o 90 Day Money Back Guarantee 
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found knowledge we compute: 
10 MfiX=127*L00C2) 

where Log() is ln() from be- 
fore and we find out where the 
maximum number we can use 
EXP() on comes from. Now what 
use is this exact figure to us? We 
can use it for overflow detection, 
a practical use of logarithms in 
programming. 

We have two numbers; we want 
to raise the first to the second, but 
the result may be larger than the 
computer can handle. If this hap- 
pens while some user is inputting 
values to our program, the pro- 
gram will halt with an error, a very 
undesirable result. We can deter- 
mine if this will happen before it 
happens, and avoid it, using 
LOGO and EXPO. Using MAX as 
defined above: 

20 input";-:" ;x 

30 INPUT"V"JV 
40 Z=V*L0G(X> 
50 IFZ>MflXTHENPRINT 

"OVERFLOW! ":GOTQ20 
60 PRINT"X7V=";EMP<Z> 

: GOTO20 

This kind of test can be done for 
multiplication, division or any op- 
eration that can cause an overflow 
or underflow, allowing our pro- 
gram to detect and correct other- 
wise fatal errors. 

Another use of logarithms in 
everyday programming is for bit 
detection. We will use the log 2 (), 
or FNL20, for this. If we define: 

10 DEFFNL2<X)=L0G<XVL0G<2> 
20 DEFFNCHW-INT<FNL200) 


FNCH(X) gives us the part of 
the logarithm to the left of the 
decimal point, or as it is known in 
mathematics, the characteristic. 
Before calculators, people looked 
up logarithms in tables, where 
usually only the decimal part was 
included, and the characteristic 
was left for the user to determine. 
Forlog 2 (), the characteristic tells 
us the highest power of two in the 
number, allowing us to easily find 
the left-most bit in a given number. 
We can subtract off this value and 
call log z again, until we have 
found all the bits we are looking 
for. This procedure only needs to 
be repeated for each bit that is on, 
not the zero bits. Compare this to 
stepping through the number, com- 
paring powers of two, where we 
have to test every bit every time! 

Even though we may not 
directly use LOGO and EXPO in 
our everyday programming, we 
indirectly call upon them all the 
time in evaluating mathematical 
expressions, where they are used 
to our advantage, speeding up 
calculations when possible. Fur- 
thermore, logarithms are useful for 
defining new functions that we can 
directly apply in our computer 
programs, increasing both their 
speed and power. C 
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Getting the Most Out of 
(And Into) Your Disk Drive 

Part 3 

by John Heilbom 


This is part three of a three-part series 
on getting more out of your disk system. 
In this section you will learn some of the 
basic concepts of developing mailing 
list programs, from data entry through 
list sorting. 

The Screen Display 

One of the most important features of any good 
program is its ease of use. For the most part, com- 


puters do not perform functions that people cannot 
perform. They just help people do the jobs faster 
and easier. 

Keeping this in mind, let's write a routine that will 
display a menu of the functions the operator can 
select. Here's a routine that displays a heading, the 
options and a prompt line. You can either use this 
screen display or write your own, but try to keep it 
as simple as possible; we're designing for function 
not beauty. 


10 REM s« DISPLAY MENU #■* 


20 PRINT "(SHIFT CLR/HOME)"; 


3 P R I NT " ( CTRL R V S / M ) MEN U 

(CTRL. RVS/OFF)" 

40 PRINT: PRINT: PRINT 


50 PRINT "(CRTL RVS/ON) 1 (CTRL RVS/OFF)... 

FORMAT DISKETTE" 

60 PRINT 


70 PRINT "(CRTL RVS/ON) 2 (CTRL RVS/OFF)... 

NEW ITEM" 

SO PRINT 


90 PRINT "(CRTL RVS/ON) 3(CTRL RVS/OFF'... 

FIND ITEM" 

100 PRINT: PRINT 


110 PRINT "(CRTL RVS/ON) 4 (CTRL RVS/OFF).. 

. UPDATE ITEM" 

120 PRINT: PRINT 


130 PRINT "ENTER SELECTION " 


140 GET A*: IF A* = "" THEN 140 


150 IF A$ = "1" THEN 200 


160 IF A$ ■ "2" THEN 300 


170 IF A$ = "3" THEN 400 


180 IF A* = "4" THEN 500 



Let's review the routine. First, line 20 clears the 
screen readying it to display our menu. Line 30 dis- 
plays the heading MENU in reverse at the top of the 
screen. Lines 40-110 display our four options and 

II 


the prompt line. Finally, lines 120-190 accept the 
operator's menu selection. Note that if the input is 
not one of the four we allow, the program will return 
to the selection input line (140). This keeps the 


J 
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operator from accidently entering the wrong thing 
and crashing the program. 

Once the operator has made a selection, our 
menu transfers control of the program to one of four 
routines. These are: 

Line 200: Format a diskette 
Line 300: New item 
Line 400: Find an item 
Line 500: Update an item 

Each of these functions will become independent 
routines. To write the routines as easily as possible, 
let's define each of them first. 

Formatting a Diskette: 
Creating a Directory 

Ordinarily, when you SAVE a file using the DOS, 
the data is stored and a directory entry is made for 
you automatically. However, this program doesn't 
use the system SAVE because the system is limited 
to 142 files and with this routine, we'll be able to put 
more than 600 files onto a single diskette. By not 
using the system SAVE, however, we'll need to 
make our own directory entries. 

The easiest way I've found to do this is to set up 
alphabetical files when you format your data diskette 
in the first place. This also allows you to incorporate 
a FORMAT routine into your program, making it 
easier for an operator to set up a new diskette. 

This FORMAT routine asks the operator to name 
the diskette. The name of the diskette is then com- 
bined with an internally generated random number 
which is used in the diskette name and is also used 
to generate a diskette number. By giving each 
diskette a different number, the computer will 
be able to determine what diskette is in the drive 


and when to update the Block Availability Map (see 
Part 2 of this series). 


200 

INPUT "DI 

SKETTE 

NAME' 

T 

D* 

205 

OPEN 15, € 

l, 15, "N: 

"+D* + 

1 

W" 

2 1 

CLOSE 15 





215 

DATA A,B, 

C,D,E,F 

,6,H, 

I, 

J , K , L , 

M , N , , P , Q , 

R , S , T , U 

rV T W, 

X, 

Y,Z 

220 

READ At 





225 

OPEN 1,8, 

4, A$>+", 

W" 



230 

PRINT #1, 

A* 




235 

CLOSE J. 





240 

IF A* = ' 

Z " THEN 

20 



245 

GOTO 220 






This is how the routine works. First, in line 200 it 
gets a diskette name from the operator. Lines 202 
and 210 OPEN a command file, FORMAT the disk- 
ette (using the INPUT name, D$) and CLOSE the 
command file. 

Line 215 is a DATA statement containing the 
names of all the alphabetical files we need to write 
onto the diskette. Line 220 reads the file names 
while 225-235 OPEN, write the files onto the disk- 
ette and CLOSE the files. Line 240 looks for the 
end of the data (the letter Z). When the files have all 
been written, it returns to the main menu routine. 

Entering a New Item 

This is just another data entry routine. Like 
the menu routine, it should have a header, entry 
options and a selection line. In this case, we'll also 
want to have a line that allows the operator to 
enter data. 

Here's a routine that includes all of the 
above features: 


300 

REM ** NEW ITEM ** 


305 

PR INT " ( SH 1 FT CLR / HOME .') " j 


310 

PRINT "(CTRL RVS/0N) N E 

W ITEM (CTRL RVS/OFF)" 

315 

PRINT: PRINT 


320 

PRINT "(CRTL RVS/GN) 1 (CTRL 

R VS. /OFF.) . . . LAST NAME" 

325 

PRINT 


330 

PRINT "(CRTL RVS/0N)2(CTRL 

RVS/OFF.) . . . FIRST NAME" 

335 

PRINT 
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340 

PRINT "(CRTL 

RVS/0N)3(CTRL 

RVS/OFF J . . . 

STREET ADDRESS" 

345 

PRINT 




350 

PRINT "(CRTL 

RVS/0N)4(CTRL 

RVS/OFF). . . 

CITY" 

355 

PRINT 




360 

PRINT "(CRTL 

RVS/0N)5(CTRL 

RVS/OFF) . . . 

STATE" 

365 

PRINT 




370 

PRINT "(CRTL 

RVS/0N)6(CTRL 

RVS/OFF) . . . 

ZIP CODE" 

375 

PRINT: 




380 

PRINT "(CTRL 

RVS/0N)7(CTRL 

RVS/OFF). . . 

SAVE" 

■.i"i'5 

PRINT 




390 

PRINT "(CTRL. 

RVS/ON)S(CTRL 

RVS OFF). . . 

EXIT" 

392 

PRINT: PRINT 

"ENTER SELECTION ": GOSUB 

600 

"'OR 

GOTO 305 





All this routine does is clear the screen and display 
the NEW ITEM option menu. The reason we don't 
want to perform the data entry part of this routine 
here is that the UPDATE routine can use the input 
subroutine we'll be writing at line 500 also. 

Data Input 

The easiest way to enter data from the program 
above is by creating an array. This is just a series of 
data that has the same variable name combined 
with a unique number to distinguish it from the 
other members of the array. For example, if you had 
a list of seven variables that needed to be defined, 
you could give each member a different name such as: 

SLEEPY 

HAPPY 

BASHFUL 

DOC 

GRUMPY 

SNEEZY 

DOPEY 

Or, you could give them all a common name and 
differentiate them by giving each a unique num- 
ber such as: 

DWARF (1) 
DWARF (2) 
DWARF (3) 
DWARF (4) 
DWARF (5) 
DWARF (6) 
DWARF (7) 


By giving each member of an array the same 
name and a unique identifying number you can 
more easily access each member of the array. 
Here's one way to do it: 


600 

REN ss INPUT ROUTINE <** 

6 1 

GET A*: IF A*="" THEN 600 

620 

IF VAL(A4O=0 THEN 600 

630 

A=VAL(A$) 

640 

IF A=7 THEN 700 

650 

IF A=S THEN 20 

660 

PRINT "ITEM"; A; 

670 

INPUT I*(A> 

680 

RETURN 


The routine above will work as a standard input 
routine for this program. This is how it works. First 
the routine looks for a single-number input. We're 
inputting into a string variable to avoid letting the 
operator bomb the program. If we tried to input into 
a numeric variable and the operator accidently en- 
tered a string value, it would cause BASIC to respond 
with an error and would scroll up the screen by one 
line. This would move the heading up out of view. 
Also it is better to remain in control of the program 
at all times. Using a string here accomplishes that. 

The next thing we do is check the input value. If 
an invalid entry has been made, the program re- 
turns to the input line (610). If the entry was valid, 
the program checks to see if either a 7 or 8 was en- 
tered. If the entry was 7 then the program jumps to 

I 


I 
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line 700 which will be our SAVE routine. If the entry 
was 8, the program returns to the MENU (line 20). If 
the entry was an input selection, the number of the 
selection is automatically translated into one of the 
string variables in the array and the INPUT is stored 
in that variable. Finally, the program returns to the 
NEW ITEM selection screen. 

Saving The Data 

The only routine that remains to be written for the 
NEW ITEM routine is a SAVE subroutine (this will 
also be used by the UPDATE routine). The lines for 
this subroutine have been derived from the routines 
developed in the first two parts of the article. Let's 
apply the programs here. First we need to allo- 
cate a sector: 


700 

REM ** SAVE: ROUTINE *** 


7 1 

OPEN 15,8, 15 


7 20 

PRINT#15, "B- A: "0? 1; 1 


730 

INPUTS 15, A,B*,T,S 


740 

IF E$="0K" THEN T=l:S=ls 
GOTO 760 


/50 

PRINT* 15, "B-As "0; T;S 



and store the data in the allocated sector: 


760 PRINT#15, "B-Ws "4; Of T; S 
7/0 CLOSE 2: CLOSE 15 


Then we'll have to save our file name in the direc- 
tory so the data can be found again later. To SAVE 
the file name, look at the first letter of the name: 


780 

F$ = 

LEFT* (I* (I) , 1) 

Now take that letter and OPEN the appropriate file. 

790 

OPEN 

1 ,8,4,F$+'\R" 


Here's the tricky part. We need to append (add to 
the end of the file) the name of our new file. Unfor- 
tunately, the VIC doesn't have a DOS command 
that does an append, so we need to create one. 

One way to append a file is to first OPEN a new 


file and read the existing one into it. Then before 
CLOSEing the new file, we write the information 
we want to add to the end of it. AH that we have to 
do then is delete the old file and rename the new 
file with the old name. 


800 

OPEN 2,8,4, "TEMP.W" 


8 1 

INPUT#1,A$ 


320 

PRINT#2,A$ 


330 

IF ST=0 THEN 810 


340 

CLOSE 1 


350 

PRINT#2, I* (13 


360 

PRINT#2, C 


370 

PRINT#2, D 


830 

CLOSE 2 


890 

OPEN 15, 8, 15, "S: "+F$ 


900 

PRINT#15, " R:TEMP=" + F* 

9 1 

RETURN 



The Find Function 

The FIND function is the simplest function in this 
program. All you need to do to find a file is prompt 
the operator for the name of the file. You then look 
in the appropriate directory (alphabetic file) for the 
matching name and read in the data using the track 
and sector that is stored in the file following the name. 


I 


400 
405 
410 

415 
420 
425 
430 
435 

440 
445 
450 
455 
460 
465 
470 
475 
480 


INPUT "FILE TO FIND"; FI$ 
FR* = LEFT* (Fit, 13 
OPEN 1,8,4,FR$ + ",R" 
G* 

6* , T, S 
FI* THEN 440 
THEN 420 

PRINT "FILE NOT 
RETURN 


INPUT#1 

INPUT#1 

IF G* = 

IF ST ■ 

CLOSE 1 

FOUND " : 

CLOSE 1 

OPEN 15,8, 15 

OPEN 2,8,4, "#" 

PRTNT#15, "B R: 

FOR R = 1 TO 6 

INPUT#2, I*(R3 

PRINT I$(RJ 

NEXT 

RETURN 


'4;0;T; 


L 
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Updating a File 

The last routine we'll need in this program mod- 
ifies an existing item. To change an existing item, 
we'll need to look it up on the diskette first. Use the 
FIND routine above to find your item. 


500 GOSUB 400 


Then prompt the operator for those items that need 
to be changed: 


502 

REM »* 

UPDATE ITEM 



505 

PRINT 

"(SHIFT 

' CLR/HOME) "; 



510 

PRINT 

" ( c rpL 

RVS/ON) U P D 

ATE F I 

_ E (URL RVS/OFF)" 

515 

PRINT: 

PRINT 




520 

PRINT 

" ( CRTL 

RVS/ON) 1 i.C!RL 

RV3/0FF). . . 

LAST NAME" 

525 

PRINT- 





530 

PRINT 

"(CRTL 

RVS/ON) 2 (CTRL. 

RVS/OFF) . . . 

FIRST NAME" 

535 

PRINT 





540 

PRINT 

" (CRTL 

RVS/ON) 3 (CTRL 

RVS/OFF) . . . 

STREET ADDRESS" 

545 

PRINT 





550 

PRINT 

"(CRTL 

RVS/ON) 4 (CTRL. 

RVS/OFF). . . 

CITY" 

i:: i^-er 
ggg 

PRINT 





560 

PRINT 

"(CRTL 

RVS/ON) 5 (CTRL 

RVS/OFF ).. . 

STATE" 

565 

PRINT 





570 

PRINT 

"(CRTL 

RVS/ON) 6 (CTRL 

RVS/OFF > . . . 

ZIP CODE" 

575 

PRINT: 





5£:0 

PRINT 

"(CTRL 

RVS/ON) 7 (CTRL 

RVS/OFF). . , 

SAVE" 

585 

PRINT 





590 

PRINT 

"(CTRL 

RVS/ON )S (CTRL 

RVS OFF ) . . . 

EXIT" 

592 

PRINT: 

PRINT 

"ENTER SELECTION ": GOSUB 

600 

595 

— 

GOTO 3 

05 





The last thing you'll need to do to finish the UP- 
DATE routine is to SAVE the modified file. Enter: 


597 GOSUB 

SOO 


and return to the 

main 

routine: 

599 GOTO 2 

o 
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PET Bits 


by Elizabeth Deal 


Raeto West's book, Programming the PET/CBM, 
confirms your worst suspicions about tape: you 
cannot save any area of memory higher than $7FFF 
(33767). Writing CHR$(PEEK(x)) to file, unfortu- 
nately, can't work, because several characters (0, 
10, 29) can't be written to tape. The solution is to 
move the contents to a saveable area (forj=0tox: 
pokem2+j,peeKml+j:next), then save it via 
the monitor. 

The book includes a nicely annotated memory 
map, wedge techniques, machine language coding 
with real, live PET examples and is really a goldmine 
of information about BASIC programming. It is 
quite tutorial about machine code, and is probably 
the best reference on the details of disk you'll find 
anywhere. 

West's book also blows a whistle on one slight 
misunderstanding about how BASIC functions in 
finding a line of a GOTO statement. The PET goes 
hunting for a line from the beginning of a program 
only when the desired line number is lower than the 
calling number; otherwise the PET goes forward. A 
selective placement of your subroutines makes sense 
in some circumstances, but don't worry about short 
forward jumps. It's the short backward ones that 
cost a bit of time. For instance, assume an evenly 
numbered program from 100: if we're now on line 
500, GOTO 550 cost us practically nothing; GOTO 
150 costs us practically nothing; but GOTO 450 
takes some time. 

o o o 

Data base management is a buzzword for or- 
ganizing your data files. There are several valuable 
programs on the market for business and large ap- 
plications. For many home computer users such 
programs are an overkill in terms of price and 
sophistication. 


A cheap data base management system can be 
had for next to nothing: i.e., no system at all. All you 
need to do is write your data in program lines, edit 
them using PET's superb screen editor and search 
and change using such aids as Commodore's 
BASIC Aid or POWER (from Professional Software). 
A program is the ultimate in random accessibility. 
You can access what you want by using search 
commands, you can change segments, you can add 
and delete data and, of course, you can store it in the 
fastest imaginable way by saying SAVE. 

One restriction: after a line number it's a good 
idea to have a non-numeric entry. A colon or quote 
work well. The system is cheap, workable and uni- 
versal until someone designs a system that does not 
permit you to put garbage into BASIC lines. Let's 
hope it never happens. 

Any program file-reading command, such as 
LIST "file" of POWAID2 can display such a file on 
the screen without disturbing a program in memory, 
so you don't even have to load to see it! (POWAID2 
and POWAID4 are public domain programs written 
by Brad Templeton as extensions of POWER). 

If you already have WordPro™ (Professional 
Software), this too can be a good filing program. 
Your data can be edited by the best editor around 
and sequential files can be put out for further pro- 
cessing. You'll be amazed at WordPro's usefulness 
beyond its normal purpose. The instructions for 
doing such things are buried at the end of the man- 
ual, but they are all there. 

For instance, fast conversion of ASCII code 
to screen code for just a few characters can be 
done by: 

PRINT'clear screen, several characters" 
For J=l TO number of characters 
S(J)=PEEK(32767+J):NEXTJ 


I 


L 
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A cheap data base management system 

can be had for next to nothing: i.e., 

no system at all. All you need to do is write 

your data in program lines, edit them 

using PET's superb screen editor and search 

and change using such aids as 

Commodore's BASIC Aid or POWER. 


Array S will hold the screen code values. 

Decimal to hexadecimal conversion of large num- 
bers is tough; you NEED a computer for it. But hex 
to decimal or bit-string can be done in your head or 
using the PETs direct mode. For example, the pro- 
cessor's status word can be easily understood by 
8421 8421 sequence. Try it: convert $4D. Is the 
decimal flag on or off? Try another: Convert $4D 
to decimal: 64*4+13. Or an address: $1234 is 
1*4096+2*256+3*16+4. 

WordPro 3 has some undocumented instructions 
that are handy for wedge addicts. There are two 
ways of initializing a floppy and using the utilities. 
One way is as described in the book. The other way 
is, you guessed it, ctrl> (rvs followed by greater- 
than key} followed by your command. 



SUPERGRAPHICS by John Fluharty (sold by AB 
Computers in Colmar, Pennsylvania) has several self- 
contained graphic subroutines that can be used alone, 
without turning the entire package on. Many, but not 
all (experiment!) commands can be worked like this: 
SYS(x)list of parameters separated by commas. C 
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with all cartridges 
Normal computer 
operation is 
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cartridges left 
plugged in 

SAME LOW PRCE 

P/N C-64 

*69.95 


VIC 20 
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Toggles. 

fuse and reset 

P/N V-36 

'69.95 
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3-ft ribbon cable 
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P'N V-23 
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B 4 W 64 only P/N MC-3 '12.95 
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Loading Commodore 64 Programs 
Into the PET and Back 


by Elizabeth Deal 


Since the VIC 20 and the 
Commodore 64 appeared on 
the scene there seems to exist 
an epidemic of people who need 
to load VIC and 64 programs into 
the PET. Several ways have been 
proposed. Most assume that the 
programs will load in at $0801 
(2049 decimal). Some methods 
I have seen require several nasty 
POKEs and, to make matters 
worse, require knowing where 
the program came from. I found 


I found myself continually 
creating Commodore 64 
partitions on the PET and 
hunting for programs, 
until one day it dawned 
on me that the solution 
was staring me right 
in the face. 


myself continually creating Com- 
modore 64 partitions on the PET 
and hunting for programs, until 
one day it dawned on me that 
the solution was staring me right 
in the face. 

Generally it involves using some 
sort of a toolkit program or the tape 
or disk merge methods of Brad 
Templeton and Jim Butterfield. 
These types of programs are 
relocators by definition. The XEC 
command of POWER does the job 
for you. If you don't have POWER 
see R. West's Programming the 
PET/CBM for the merge methods. 
The disk merge command was de- 
scribed in the Transactor, #8. But, 
by far, the easiest thing is to use 
the toolkit-type commands after 
typing NEW in the PET, 


1. TOOLKIT from a Palo Alto 
I.C has an APPEND command. 
TOOLKIT will append to nothing, 
ultimately relocating a Commo- 
dore 64 program to wherever you 
are in the PET. 


2. BASIC Aid from Commodore 
has a MERGE command. It, too, 
should merge with nothing and 

relocate. 


3. POWAID, available in the 
public domain, which is Brad 
Templeton's extension of his 
POWER chip, contains a MERGE 
command. MERGE"0:C64 PRO- 
GRAM" moves it exactly where 
you want it. 

4. I'm sure other similar utilities 
on chip or in RAM will do the 
same thing. 

There is a related issue; that of 
moving PET programs into the 64. 
I wrote several at $4000 (16384) 
on the PET and saved them via 
the machine language monitor 
from $4000 (it's a nice even num- 
ber!). 1 thought the 64 would re- 
locate correctly. Well, it did, but I 
botched the job. I ended up with 
a horrendous mess of crazy line 
numbers. The 64 moved the initial 
zero, of course. So the moral of 
this story is not to save the initial 
BASIC zero. In contrast to PET, 
a program in a PET partition at 
$4000 should be saved from 
$4001 if the intent is to move 
it to the 64. Of course using the 
LOAD"PET PROGRAM", 8,1 
does the trick on a $4000-type 
save if you can remember the 
",l"part... 
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Software Keyboard Conversion 
for Your Commodore 64 


by Gregory Yob 


Here you are, sitting at 
your new Commodore 64 
computer, which is a shin- 
ing example of a modern 
technical miracle. Yet, 
would you believe that 
your keyboards arrange- 
ment is an anachronism? 
In this age of efficiency, 
when personal computers 
are being used as tools for 
personal productivity, it is 
a sad fact that the standard 
keyboard is set up to hinder 
your entry of data! 


The Sholes Keyboard vs. 
the Dvorak Keyboard 

The original typewriter had 
a few bugs in its design, one of 
which was a tendency for the keys 
to jam together if the typist struck 
them too rapidly. Mr. Sholes, the 
inventor of the typewriter, solved 
the problem by making the key- 
board so difficult to use that the 
typist couldn't jam the machine. 
He did this by deliberately ar- 
ranging the keys to force the 
typist to type slowly. 

Since human beings are re- 
markably adaptable, the Sholes 


keyboard layout became the 
nearly universal standard key- 
board — long after the mechan- 
ical problems of typewriters were 
solved and forgotten. As type- 
writers came into general use, 
several studies were made con- 
cerning the ease with which a type- 
writer keyboard could be used 
and how this depended on the 
arrangement of the letters. The 
Sholes keyboard turns out to be 
slower than a keyboard arranged 
A B C D E F and, in nearly every 
case, slower than a keyboard 
whose keys were arranged in 
random order! 

If some thought is given to the 
strength of the hands, a look at the 
QWERTY keyboard (our friend 
Sholes here) reveals that the most 
common letters in English are 
mostly placed on the left side of 
the keyboard, and most of these 
are NOT in the "home position". 
(If you rest your hands on a key- 
board in the approved manner 
your fingers will touch ASDF JKL;) 
Of the first ten most common let- 
ters, only two are in the "home posi- 
tion" and both are on the weakest 
two fingers of the left hand! 

A different arrangement, known 
as the Dvorak keyboard, is ar- 
ranged to take advantage of the 
hand's characteristics in typing. 
This layout puts the common let- 


ters in the "home position", with 
the vowels in the left hand and 
the consonants in the right. (Most 
words tend to alternate vowels 
and consonants with more con- 
sonants than vowels — so the 
strong right hand takes the load 
alternating with the left.) See Fig- 
ure 1 for the Sholes and Dvorak 
keyboard layouts. Some studies 
indicate that a typist can type 
twenty times as rapidly on a 
Dvorak keyboard! 

The Commodore 64 
to the Rescue 

The computers prior to the 
Commodore 64 had no easy 
way to rearrange the keys on 
the keyboard. Your choices were 
limited to redoing the ROMs 
or rewiring the keyboard. The 
Commodore 64 has an interest- 
ing feature which in effect will let 
you redo the ROM and thereby 
rearrange your keyboard. (By the 
way, this feature lets you make any 
re-arrangement you want — like 
the A B C D E F keyboard for a 
handicapped person for example.) 

The Commodore 64 has a full 
64K of RAM and 16K of ROM 
which shares the same address 
space (i.e., how do you fit 80K of 
memory into 64K of space?) If you 
take a look at pages 260 through 


It 
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Figure 1. Sholes and Dvorak Keyboard Layouts 
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The diagram above shows the familiar Sholes keyboard layout. 
This is very similar to the one on your Commodore 64. 
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The Dvorak keyboard is shown above. This arrangement lets you 
type much more rapidly than the Sholes keyboard permits. Of course, 
you have to learn the new layout of the keys, which takes some 
time. If you convert the keyboard via the program, any commercial 
typing training program will work for learning the Dvorak keyboard. 


267 in the Commodore 64 Pro- 
grammer's Reference Guide, 
you'll see that the 6510 chip has 
a six-btt I/O port at location 1, with 
its data direction register in loca- 
tion 0. Bits 0,1 and 2 on this port 
(Bit selects the BASIC ROM and 
is called Loram. Bit 1 selects the 
Kernal ROM and is called Hiram.), 
combined with two lines in the ex- 
pansion port (game and Exrom) 
allow eight variations of the mem- 
ory map to be set up. The normal 
memory map has ROM in effect 


in the areas of the Kernal and 
BASIC. If we want to, the Kernal 
and BASIC ROM can be switched 
off and the RAM in the same loca- 
tions used instead. 

Of course, if you go around 
switching ROM to RAM, you could 
get into some trouble! Most of the 
time your Commodore 64 is run- 
ning a program in the Kernal or 
BASIC and if you turn either of 
these off, the machine will cease 
to function! If you want to check 
this out, a PEEK(l) reveals that 


the value 55 ($37 in hexadecimal) 
is the normal value — i.e., Loram 
and Hiram are both on and have 
the value of 1. Now try the other 
three combinations of Loram and 
Hiram— POKE 1,52 will set them 
both to off, POKE 1,53 leaves 
Loram on and Hiram off (i.e., 
BASIC as ROM and the Kernal 
replaced by RAM) and POKE 
1,54 vice versa. Try these out — 
a small surprise awaits you! 

A second feature of the Com- 
modore 64 lets us actually change 
the keyboard from BASIC! A 
POKE to an area currently cov- 
ered by ROM will write the value 
into the RAM anyway — so a sim- 
ple loop to PEEK the current value 
in the ROM then POKE the same 
value into the RAM will copy the 
operating system (Kernal and 
BASIC) into the RAM. Once this 
is done, the keyboard decoding 
table, which lives in the Kernal 
area, can be modified for the 
Dvorak layout. The last step is to 
POKE location 1 to change from 
the Kernal ROM to the copy of 
the Kernal in RAM. 

This ledgermain will now give 
you a Commodore 64 whose 
keyboard speaks Dvorak in- 
stead of Sholes. May your pro- 
ductivity shine! 

On to the Nitty-Gritty 

The program at the end of this 
article performs the conversion of 
your Commodore 64 keyboard 
from the Sholes to the Dvorak 
layout. Lines 10 to 60 serve only 
to protect my reputation. Lines 70 
through 120 transfer a copy of the 
ROM to the RAM sitting "under- 
neath" in the Commodore 64. 


J 
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The Kemal is copied in Lines 90- 
100 and BASIC is moved in Lines 
110-120. (By the way, there is no 
way to have BASIC in effect from 
ROM with the Kemal replaced 
by RAM. You must copy both of 
them, or the machine will simply 
do a warm start when you attempt 
the switchover from ROM. 
Though the description of Loram 
and Hiram would let you think 
otherwise, a chip called the PLA 
buried in the Commodore 64 
has ideas of its own. So it is both 
BASIC and the Kemal or no dice.) 

Line 130 changes to typewriter 
mode; that is, the character set 
is switched to lower case/upper 
case. The four strings LS$, US$, 
LD$, UD$ are set up in lines 170 
through 440. LS for example, 
means "lower caseSholes" and 
you can discern the others from 
the remarks. By building the 
strings in four steps I am copying 
the keyboard layout. For example, 
line 220 shows the home row of 
the Shotes layout, which is what 
you have on your machine. When 
we get to the Dvorak strings LD$ 
and UD$, the Dvorak keyboard 
is similarly represented. See the 
similarity of these string assign- 
ments to Figure 1. 

You can easily change LD$ 
and UD$ to represent the layout 
of your choice. To do the A B 
C D E F keyboard, lines 350 to 
370 become: 

350 LD*=LD$+"abcdef q 

hi jk" 
360 LD$=LD$+"lmnopqr 

stuv" 
370 LD$=LD*+"w>:yz?, 


Similarly, lines 420 and 440 can 
be set for the upper case version. 
Or. if you wish, exchange LD$ for 
UD$ to get the use of upper case 
without the shift key and lower 
case with shift. (Some of the old- 
timers will recall that the early 
PETs did this. I had that handi- 
capped person in mind.) 

If you peer closely at Figure 1, 
some differences between the 
Commodore 64's keyboard and 
the Sholes layout become appar- 
ent This is particularly clear in the 
upper row and keys like + and * 
Feel free to select the variations 
that suit you the best. The top row 
remains unchanged in shifted 
mode, since the Sholes layout isn't 
concerned with the punctuation 
above the number keys. Note that 
CHR$(34) is the quotation marks 
character in lines 270 and 410. 

With the strings at the ready, 
the real work can begin. The key- 
board table in the Commodore 
64's Kemal resides in $EB81 to 
$EC43 (hexadecimal). Line 570 
notes this as the variables KT and 
KE. Remember, when we PEEK, 
we see the ROM value and when 
we POKE, the RAM gets changed. 
If this weren't the case, the code 
used here would fail. (See if you 
can figure out why. . . ) The loop C 
in line 580 picks out the characters 
from LS$ and LD$ one at a time 
and sets the ASC values of these 
in variables SK (Sholes key) and 
DK (Dvorak key) respectively. 
The loop K in line 610 searches 
through the keytable for a match 
for the Sholes key, and when it 
is found, line 620 performs the 
POKE of the Dvorak value (DK). 
Line 640 is a safety check for non- 


keyboard characters, which is 
never executed. (This line may not 
be needed now, but I wanted to 
know if I had made any mistakes 
when debugging the program. ) 
When all this is done, line 650 
tells me the conversion for one 
character is done. 

Line 660 is a note about BASIC. 
Most of the time we get here still in 
the K loop, and a NEXT without the 
C would merely continue the K 
loop. But continuing the C loop is 
what we want. 

Lines 680 through 790 do the 
same thing for the strings US$ 
and UD$ for the upper case keys. 
The values of KT and KE could be 
changed by only looking at the 
upper case part of the table, but I 
believe in letting the computer do 
my dirty work. 

The last item is the POKE in 
line 840 which switches Hiram 
over to RAM. Remember the PLA 
also switches BASIC over as well. 
POKE 1,52 will also do. (But I 
haven't tested it!) You now have 
a Dvorak keyboard on your Com- 
modore 64. 

A Final Note 

The method of moving the 
Kemal and BASIC into RAM has 
many other applications beyond 
changing the keyboard, Additional 
BASIC commands for sound or 
graphics could be added without 
using a "wedge" program; this 
isn't easy without the source code 
for BASIC and the Kemal, so we 
will have to hope Commodore will 
provide these eventually. Mean- 
while, happy typing! C 


(program listing on next page) 
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Keyboard Conversion Program for the Commodore 64 


19 rem c-64 dvorak keyboard ProSran 

2@ rcro wr i tten by 9re9ory yob 

30 rem you may coPy this Pro9ram 

49 rem if sou don't remove these 

50 rem remarks. » thank you « 
68 rem 

79 P r i nt " C c I ear ] transf err i n9 row 
to ram" 

30 Print" — be Patient — " 

90 for ,i = 14#4096 to 16*4036-1 

1 00 b=P eek CD 'Poke i > b : next 

110 for j=10*4096 to 12*4996-1 

1 20 b=P eek ( J > : P ok e J .. b ; next 

130 Print chr*(14) 

140 rem 

150 rem set strings for keyboard 

160 rem representations 

170 rem 

130 rem lower case sholes keys 

190 rem done row by row 

200 I s*=" 234567896+-" 

210 I s$= I s*+ " i werts u i op @ " 

220 ls*=ls*+"asdf9hjkt: .: " 

230 lsf~ls$+"zxcvbnm, ./" 

240 rem 

259 rem uPPer case sholes keys 

260 rem done row by row 

270 us*=chr*c:34) + "#SW/O0-H" 

233 us*=us*+ " QWERTVU I QPf" 

290 us$=us$+ " flSDFGH JKL C 3 " 

300 us *=us*+ " ZXCVENMO? " 

310 rem 

320 rem lower case dvorak keys 

330 rem done row by row 

340 ldf=" 753 I 902463=" 

353 1 d *= I d$+ "7, . Ps f 9cr 1 / " 

363 ld$=ld*+"aoeuidhtns-" 

370 1 d*= 1 d$+ " / q iV xbwwvz " 

330 rem 

390 rem uPPer case dvorak keys 

480 rem done row by row 

410 ud$*chr*C34H"#f?i6 / <>8+l " 

420 uid*sud*+"REOUIDHTNS-" 


430 ud**ud*+ " flOEUl DHTNS-" 
440 ud**ud*+ " ; Q JKXBMWVZ " 

450 Print 

460 Print "convert in9 lower case to dvorak" 

470 print 

430 rem we scan throuQh the row table 

490 rem which stores the keyword in 

500 rem the order of its switch matrix 

510 rem values for the key we want. 

520 rem then we Just Poke in the dvorak 

530 rem key value instead 

540 rem 

550 rem key table boundaries 

560 rem 

570 kt=60289-ke=60483 

530 for c=l to lenClsf) 

590 sk =asc CmidfC Is*. C, 1 ) ) 

600 dk=asc(midf ( Id*.. o i)) 

610 for k=kt to ke 

620 if Peek<k>=sk then Poke kjdk : 9oto 650 

630 next 

640 Print "<«key table error>» n :stoP 

650 Print" sholes: M chr*(sk)" dvorak^ "chr*(dk> 

66Q rem 'c' is required in next 

670 next c : Print 

630 Print "converting uPPer case to dvorak" 

690 Print 

700 for c*»l to len<usf) 

710 sk«asc<wid*Cus$iC/ 1>) 

720 dk=asc<mid$<ud$ J o 1>> 

730 for k=kt to ke 

740 if Peek Ck)=sk then Poke k>dk : 9oto 770 

750 next 

760 Print"<«key table error>»"--stoP 

779 Prinfsholes: "chr$<sk>" dvorak: "chr#<dk) 

730 rem / c / is required in next 

790 next c : Print 

300 Print 

310 Prinf'dvorak keyboard is now installed" 

320 Print- Print" ... have fun ..." 

330 rem chan9e o^er to ram 

340 Poke 1.53 
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House Inventory for the 
Commodore 64 


by Robert W. Baker 


This program provides an easy means of 
maintaining an inventory of personal 
possessions for insurance or other related 
purposes. Information is stored on floppy 
disk for later retrieval and easy storage, 
such as in safety deposit boxes. 

Running the program is quite simple; to create a 
new data file simply select that mode and answer 
the questions concerning the item description, make, 
model, serial number or other identifying markings, 
date acquired, and original value. Typing RETURN 
for any question will automatically enter a question 
mark for that entry. When alt questions are entered, 
the entire entry will be displayed and you will be 
asked if it is correct before it is actually written in the 
data file. 

Typing "D" (for DONE) for any entry will abort 
that entire item entry, close the output file, and re- 
turn to the program command mode. Typing "E" 
(for ERROR) will indicate an error and will abort the 
entire item entry and restart it again with the first 
question. Be careful when entering new items into 
the data file, do not use commas or colons to sepa- 
rate words within an entry since BASIC thinks you 


may be entering more than one string. Use dashes 
or some other graphic character and play it safe. 
Avoid using quotes for similar reasons. 

To read an already created data file, insert the 
disk and select that program mode. Three items will 
be displayed at a time with all information. Hitting 
any key except "D" will display the next three en- 
tries. Typing "D" will terminate the read mode, 
close the input file, and return to the program com- 
mand mode. 

Other program modes are provided to copy or 
edit the data files produced by this program. The 
edit mode allows copying or deleting individual en- 
tries. You can insert new items at any point. Also, 
a search feature is included to copy all items till 
a specific item is found. 

All program modes provide file and/or drive 
selection for ease of use. A default file name of IN- 
VENTORY DATA will be generated unless you enter 
a specific file name. If you should have a large num- 
ber of items to catalog you may want to use separate 
data files for each room, for items acquired each 
year, specific collections, etc. Program use should 
be self-evident through prompting instructions dis- 
played by the program. At present, the program 
does not provide a print option since it was designed 
for storage of large amounts of personal data. C 


10 REM ** HOUSE INVENTORY *** DISK ** 

20 REM 

30 REM ROBERT W. BAKER 

40 REM 15 WINDSOR DR., ATCO, NJ 08004 

50 REM 

60 REM ****************************** 

70 : 

80 PRINT" [CLEAR, SPACES] HOUSEHOLD INVENTORY PROGRAM": GOSUB 1290 


Ik 
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Inventory Program 


90 PRINT"DESIRED PROGRAM MODE: 


PRINT: PRINT" = DONE" 


100 
110 

120 
130 
140 
150 
160 
170 
180 
190 

210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 

370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 

510 
520 


PRINT" 1 = 
PRINT" 2 = 
PRINT" 4 = 
GOSUB 1290: 
GOSUB 1360: 
R=VAL(R$) : 
IF Z<5 THEN 


READ DATA" 

WRITE NEW DATA FILE": PRINT" 3 = 

EDIT DATA FILE": PRINT" 5 = HELP 

PRINT: PRINT"MODE ?" ; 

IF R$="0" THEN PRINT" [CLEAR] " : 
IF R<1 OR R>5 THEN 140 

OPEN 15,8,15 

310,180,310,310,1400 


COPY DATA FILE" 
(INFORMATION) " 

END 


AND TS<>"1" THEN 
:: GOSUB 1340 


II . m g . « i 

GOSUB 


";fs 

1600 


Z=R: ON R GOTO 

GOSUB 1250 

INPUT" [DOWN] OUTPUT TO DISK DRIVE* (0 OR 1) [LEFT3] " ;T$ : 

T$=LEFT$ (T$,l) 

T=VAL(T$): IF TS<>"0" AND TS<>"1" THEN 80 

PRINT: PRINT"OUTPUT ". 

IF F$<>"-" THEN 260 

F$=" INVENTORY DATA" 

PRINT: PRINT"DEFAULT FILE = 

OPEN 2,8,5,T$+":"+F$+",S,W": 

IF Z=3 THEN 560 

IF Z=4 THEN 610 

GOSUB 900: IF C THEN GOSUB 1130: GOTO 290 

GOTO 550 

GOSUB 1250 

INPUT" [DOWN] INPUT FROM DISK DRIVE# (0 OR 1) [LEFT3] " ;T$ 

T=VAL(T$): T$=LEFT$ (T$, 1) 

IF TS<>"0" AND T$<>"1" THEN 80 

PRINT: PRINT"INPUT " ; : GOSUB 1340 

IF F$="-" THEN F$="INVENTORY DATA": PRINT" [DOWN] DEFAULT FILE = 

";T$;":";F$ 

OPEN l,8,6,T$+":"+F$+" ,S,R": 

X$="" 

190 

IF C>1 THEN 490 

IF C THEN 510 

IF C>1 THEN 510 

IF C THEN 510 

IF C>1 THEN 510 

IF C THEN 510 


GOSUB 1600 


IF Z>2 THEN 
GOSUB 1160 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOTO 


1090 
1160 
1100 
1160 
1100 
1300 
1380 
550 


IF R$<>"D" THEN 400 


PRINT" [CLEAR, RVS] END OF MODE #1 [RVOFF ,SPACE2] DONE READING 

DATA FILE" : PRINT 

GOSUB 1300 

IF C=l THEN PRINT"END OF DATA FILE!" 
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530 

IF C>1 THEN PRINT"DISK ERROR ( STATUS =";ST;")" 

540 

GOSUB 1350 

550 

CLOSE 1: CLOSE 2: CLOSE 15: GOTO 80 

560 

19$="": GOSUB 1250: PRINT" [ RVS ] PLEASE WAIT [RVOFF , SPACE2] 

****** COPYING DATA FILE! [DOWN]" 

570 

GOSUB 1160: IF C>1 THEN 820 

580 

IF Z = 4 AND LEFT$(I$,LEN(I9$) )=I9$ THEN GOSUB 1250: GOTO 620 

590 

GOSUB 1130: IF C=l THEN 820 

600 

IF Z = 3 OR I9$<>"" THEN 570 

610 

GOSUB 1160: IF C>1 THEN 820 

620 

GOSUB 1250: GOSUB 1100: GOSUB 1290: PRINT"DESIRED ACTION: 11 : PRINT 

630 

PRINT" 1 = COPY THIS ITEM, NO CHANGE" 

640 

PRINT" 2 = DELETE THIS ITEM" 

650 

PRINT" 3 = INSERT ITEMS BEFORE THIS ONE" 

660 

PRINT" 4 = SEARCH & COPY TILL ITEM FOUND": PRINT 

670 

PRINT"ACTION ? " ; 

680 

GOSUB 1360: R=VAL(R$): IF R<1 OR R>4 THEN 680 

690 

PRINT R$ 

700 

PRINT"OK": 19$="": ON R GOTO 590,710,730,760 

710 

IF C=l THEN 820 

720 

GOTO 610 

730 

I9$=I$: W9$=W$: M9$=M$: S9$=S$: D9$=D$: V9$=V$: C9=C 

740 

GOSUB 900: IF C THEN GOSUB 1130: GOTO 740 

7 50 

I$=I9$: W$=W9$: M$=M9$: S$=S9$: D$=D9$: V$=V9$: C=C9: GOTO 620 

760 

GOSUB 1250: PRINT"ALL ENTRIES WILL BE COPIED UNTILL" 

770 

PRINT: PRINT"DESIRED ITEM IS FOUND;" 

780 

PRINT: PRINT: PRINT"ENTER ITEM TO SEARCH FOR:" 

790 

INPUT" - [LEFT3] "; 19$ 

800 

IF 19$="-" THEN 19$="": PRINT" [DOWN3 ] SEARCH ABORTED": GOTO 620 

810 

PRINT: PRINT: PRINT: PRINT"SEARCHING" : GOTO 580 

8 20 

IF Z=3 THEN 520 

830 

GOSUB 1250: IF C>1 THEN 530 

840 

PRINT"END OF INPUT FILE!" 

850 

PRINT: PRINT"DO YOU WANT TO ADD ANY ENTRIES TO THE" 

860 

PRINT: PRINT"END OF THE DATA FILE"; 

870 

GOSUB 1310: IF R$="N" THEN 550 

880 

GOSUB 900: IF C THEN GOSUB 1130: GOTO 880 

890 

GOTO 550 

900 

C=0: PRINT" [CLEAR] ENTER ITEM INFORMATION : [DOWN] " 

; 

PRINT"D = DONE ENTERING DATA" 

910 

PRINT"E = ERROR, RESTART ENTIRE ITEM" 

920 

PRINT: PRINT"DO NOT USE ',' OR ':' WITHIN THE DATA" 

930 

PRINT: PRINT"PRESS [ RVS ] RETURN [RVOFF , SPACE ] AFTER EACH ENTRY" 

940 

GOSUB 1290: INPUT" [ RVS] ITEM [ RVOFF , SPACE3 ]? [LEFT3 ]"; 1$ : IF I$ = "E" 


THEN 900 


li 
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950 
960 
970 
980 
990 
1000 

1010 
1020 

1030 

1040 
1050 
1060 
1070 
1080 
1090 
1100 

1110 
1120 

1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 

1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 


";W$: IF W$="E" THEN 900 
;MS: IF M$="E" THEN 900 
IF S$="E" 


IF IS="D" THEN RETURN 

INPUT" [RVS]MAKE [RVOFF , SPACE3 ] ? [LEFT3] 

IF W$="D" THEN RETURN 

INPUT" [RVSJMODEL [ RVOFF , SPACE3 ] ? [LEFT3] 

IF M$="D" THEN RETURN 

INPUT" [RVS] SERIAL#/ID [ RVOFF, SPACE3] ? [LEFT3] ";S$: 

THEN 900 

IF S$="D" THEN RETURN 

INPUT" [RVS] DATE ACQ ■ D [ RVOFF , SPACE] (MONTH/DAY/YEAR) 

?[LEFT3]";DS : IF D$="E" THEN 900 

D$=LEFT$ (D$,8) : IF D$="D" THEN RETURN 

INPUT" [RVS] SVALUE [RVOFF, SPACE3] ? [LEFT3] ";V$: IF V$="E" 

IF V$="D" THEN RETURN 

GOSUB 1090: GOSUB 1290 

PRINT"IS THIS ENTRY CORRECT' 1 ;: GOSUB 1310: IF R$ = "N" THEN 

C=l: RETURN 

PRINT" [CLEAR] " ; 

PRINT" [RVS] ITEM: [RVOFF, SPACE] " ; 1$: PRINT" [RVS]MAKE: [RVOFF , SPACE] 

";W$ : PRINT" [RVSJMODEL: [RVOFF, SPACE] ";M$ 

PRINT" [RVS] SERIAL#/ID: [RVOFF , SPACE] " ;S$ 

PRINT" [RVS] DATE ACQ ' D : [RVOFF , SPACE] "D$;TAB (22) ; 

RVOFF, SPACE] S";V$: PRINT: RETURN 

X$=W$: GOSUB 1150 
X$=D$: GOSUB 1150 
;: GOTO 1600 

C THEN RETURN 


THEN 900 


900 


X$=I$: GOSUB 1150: 
X$=S$: GOSUB 1150: 
PRINT#2,XS;CHR$ (13) 
GOSUB 1230: I$=X$ 

1230: 

1230: 

1230: 

1230: 

1230: 


X$=M$ 
X$=V$ 


[RVS] VALUE 


GOSUB 1150 


W$ = X$ 
M$=X$ 
SS = X$ 
D$ = X$ 
V$=X$ 


GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

RETURN 

C=0: INPUT#1,X$: 

GOTO 1600 

IF Z=l THEN 

IF Z = 2 THEN 

FILE" 

THEN 

THEN 


IF 

IF 
IF 
IF 
IF 

IF 


THEN 
THEN 

THEN 
THEN 


RETURN 
RETURN 
RETURN 
RETURN 


C=2 THEN C=l 


IF ST THEN C=3: IF ST=64 THEN C=2 


PRINT" [CLEAR, RVS]MODE # 1 [RVOFF, SPACE2] READ DATA FILE" 
PRINT" [CLEAR, RVS]MODE #2 [RVOFF , SPACE2] WRITE NEW DATA 


PRINT" [CLEAR, RVSJMODE #3 [RVOFF, SPACE2]COPY DATA FILE" 
PRINT" (CLEAR, RVS] MODE #4 [RVOFF, SPACE2] EDIT DATA FILE" 


IF Z = 3 

IF Z = 4 
PRINT 

PRINT" 

PRINT" (Y/N) ? "; 
GOSUB 1360: IF R$<>"Y" 
PRINT R$: RETURN 
INPUT"FILENAME -[LEFT3] 


PRINT: RETURN 


AND RS<>"N" THEN 1320 
;F$: RETURN 


L 
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1350 PRINT: PRINT"HIT ANY KEY WHEN READY TO CONTINUE";: GOTO 1390 

1360 GET R$: IF R$ = "" THEN 1360 

1370 RETURN 

1380 PRINT: PRINT"HIT ANY KEY TO CONTINUE, D=DONE"; 

1390 GOSUB 1360: PRINT: PRINT"OK": RETURN 

1400 PRINT" [CLEAR] THIS PROGRAM WAS DESIGNED TO WRITE," 

1410 PRINT"READ, COPY, OR EDIT DISK DATA FILES" 

1420 PRINT"CONTAINING INFORMATION ON YOUR" 

1430 PRINT"HOUSEHOLD POSSESSIONS. THIS INFORMATION" 

1440 PRINT"INCLUDES AN ITEM DESCRIPTION ALONG WITH" 

1450 PRINT"THE MAKE, MODEL, SERIAL NUMBER (OR" 

1460 PRINT"OTHER IDENTIFYING MARKS) , DATE ACQUIRED" 

1470 PRINT"AND THE VALUE. THIS DATA SHOULD BE OF" 

1480 PRINT"GREAT VALUE FOR INSURANCE RECORDS" 

1490 PRINT"IN CASE OF FIRE OR THEFT; AND MAY EVEN" 

1500 PRINT"BE OF SOME USE FOR TAX RECORDS." 

1510 PRINT: PRINT"DISK FILE HANDLING HAS BEEN INCLUDED TO" 

1520 PRINT"ALLOW USING SEPERATE FILES FOR EACH" 

1530 PRINT"ROOM, SPECIAL COLLECTIONS, ETC." 

1540 PRINT"THIS PROVIDES EASY DATA MAINTENANCE" 

1550 PRINT"WHILE ALL DATA CAN EASILY BE STORED ON" 

1560 PRINT"A SINGLE DISKETTE." 

1570 PRINT: PRINT"WHY NOT KEEP A COPY IN YOUR BANK" 

1580 PRINT"SAFETY DEPOSIT BOX FOR SAFE KEEPING?" 

1590 GOSUB 1350: GOTO 80 

1600 INPUT#15,EN,EM$,ET,ES: IF EN=0 THEN RETURN 

1610 PRINT" [CLEAR, RVS]DISK ERROR [RVOFF] " : PRINT 

1620 PRINT EN,EM$;ET;ES 

1630 GOSUB 1290: GOTO 540 


li 
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User Group Listing __ 

ALABAMA 

Hunlsville PET Users Club 

9002 Berdair Road 

Huntsville, AL 35802 

Contact: Hal Carey 

Meetings: every 2nd 

Thursday 

ALASKA 

COMPOOH-T 

co Box 118 

Old Harbor, AK 99643 

(907) 286-2213 

ARIZONA 

VIC Users Group 

2612 E. Covina 

Mesa. AZ 85203 

Contact: Paul Muffuletto 

Catalina Commodore Computer Club 

2012 Avenida Guillermo 

Tucson. AZ 85710 

(6021296-6766 

George Pope 

IstTues. 7:30 p.m. 

Metro Computer Store 

Central Ari2ona PET People 

842 WCalle del Norte 

Chandler. AZ 85224 

(6021899-3622 

Roy Schahrer 

ACUG 

c/o Home Computer Service 

2028 W Camelback Rd 

Phoenix. AZ 85015 

(602)249-1186 

Dan Deacon 

First Wed. of month 

West Mesa VIC 

2351 S. Standage 

Mesa, AZ 85202 

Kenneth S. Epstein 

Arizona VIC 20-64 Users Club 

232 W: 9th Place North 

Mesa. AZ 85201 

Donald Kipp 

ARKANSAS 

Commodore'PET Users Club 

Conway Middle School 

Davis Street 

Conway. AR 72032 

Contact: Geneva Bowlin 

Booneville 64 Club 

c/o A, R. Hederich 

Elementary School 

401 W. 5th St 

Booneville. AR 72927 

Mary Taff 

CALIFORNIA 

SCPUG Southern California 

PET Users Group 

c/o Data Equipment Supply 

Corp. 

8315 Firestone Blvd. 

Downey. CA 90241 

(213)923-9361 

Meetings: First Tuesday of 

each month 

California VIC Users Group 

c/o Data Equipment Supply 

Corp. 

8315 Firestone Blvd. 

Downey. CA 90241 

1213)923-9361 

Meetings: Second Tues. of 

each month 
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Valley Computer Club 

2006 Magnolia Blvd. 

Burbank, CA 

(213)849-4094 

1st Wed. 6pm 

Valley Computer Club 

1913 Booth Road 

Ceres, CA 95307 

PUG of Silicon Valley 

22355 Rancho Ventura Road 

Cupertino, CA 95014 

Lincoln Computer Club 

750 E. Yosemite 

Manteca. CA 95336 

John Fung. Advisor 

PET on the Air 

525 Crestlake Drive 

San Frandsco. CA 94132 

Max J. Babin. Secretary 

PALS (Pets Around) 

Livermore Sodety 

886 South K 

Livermore, CA 94550 

(415) 449-1084 

Every third Wednesday 

7:30 pm 

Contact: J. Johnson 

SPHINX 

7615 Leviston Ave. 

El Cerrito. CA 94530 

(415) 527-9286 

Bill MacCracken 

San Diego PUG 

c/o D. Costarakis 

3562 Union Street 

(714)235-7626 

7 a.m. -4 p.m. 

Walnut Creek PET 

Users Club 

1815 Ygnacio Valley 

Road 

Walnut Creek, CA 94596 

Jurupa Wizards 

8700 Galena St. 

Riverside. CA 92509 

781-1731 

Walter J. Scott 

The Commodore Connection 

23(i! Mw:c.nSt 

Santa Cruz, CA 95060 

(408) 425-8054 

Bud Massey 

San Fernando Valley 

Commodore Users Group 

21208 Nashville 

Chatsworth.CA9I311 

(213)709-4736 

Tom Lynch 

2nd Wed. 7:30 

VACUUM 

277 E. 10th Ave. 

Chico.CA 95926 

(916)891-8085 

Mike Casella 

2nd Monday of month 

VIC 20 Users Group 

2791 McBride Ln. #121 

Santa Rosa. CA 

(707)575-9836 

Tyson Verse 

South Bay Commodore Users Group 

1402 W. 218th St. 

Torrance, CA 90501 

Contact: Earl Evans 


Slo VIC 20/64 Computer Club 

17669th St. 

Los Osos. CA 

The Diamond Bar R.O.P. Users Club 

2644 Amelgado 

HadendoHgts..CA 91745 

(213)333-2645 

Don Mcintosh 

Commodore Interest Association 

c/o Computer Data 

14660 La Paz Dr. 

Victorville. CA 92392 

Mark Finley 

Fairfield VIC 20 Club 

I336McKinleySt. 

Fairfield, CA 94533 

(707)427-0143 

Al Brewer 

1st & 3rd Tues. at 7 p.m. 

Computer Bam Computer Club 

319 Main St. 

Suite #2 

Salinas. CA 93901 

757-0788 

S. Mark Vanderbilt 

Humboldt Commodore Group 

P.O. Box 570 

Areata, CA 95521 

R. Turner 

Napa Valley Commodore 

Computer Club 

c/o Liberty Computerware 

2680 Jefferson St. 

Napa, CA 94558 

(707)252-6281 

Mick Winter 

1st & 3rd Mon. of month 

S.D. East County C-64 User Group 

6353 Lake Apopka Race 

San Diego. CA 921 19 

(619) 698-7814 

Linda Schwartz 

Commodore Users Group 

4237 Pulmeria Ct. 

Santa Maria. CA 93455 

(805) 9374174 

Gilbert Vela 

Bay Area Home Computer Asso. 

Walnut Creek Group 

1406 N. Broadway at Cypress 

Walnut Creek. CA 94596 

Wil Cossel 

Sat. 11 a.m. to3p.m. 

COLORADO 

VICKIMPET Users Group 

4 Waring Lane. Greenwood 

Village 

Littleton, CO 80121 

Contact: Louis Roehrs 

Colorado Commodore Computer Club 

2187 S. Golden Ct. 

Denver. CO 80227 

986-0577 

Jack Moss 

Meet: 2nd Wed. 

CONNECTICUT 

John F. Garbarino 

Skiff Lane Masons Island 

Mystic. CT 06355 

(203)536-9789 

Commodore User Club 

Wethcrsfleld High School 

411 Wolcott Hill Road 

Wethersfield.CT 06109 

Contart: Daniel G. Spaneas 


VIC Users Club 

c/o Edward Barszczewski 

22 Tunxis Road 

West Hartford. CT 06107 

New London County 

Commodore Club 

Doolittle Road 

Preston. CT 06360 

Contad: Dr. Walter Doolittle 

FLORIDA 

Jacksonville Area 

PET Sodety 

401 Monument Road. #177 

Jacksonville. FL 32211 

Richard PresBen 

6278 SW 14th Street 

Miami. FL 33144 

South Florida 

PET Users Group 

Dave Young 

7I70S.W. 11th 

West Hollywood, FL 33023 

(305) 987-6982 

VIC Users Club 

c/o Ray Thigpen 

4071 Edgewater Drive 

Orlando. FL 32804 

PETs and Friends 

129 NE 44 St 

Miami, FL 33 137 

Richard Plumer 

Sun Coast VlCs 

P.O. Box 1042 

Indian Rocks Beach, FL 

33535 

Mark Weddell 

Bay Commodore Users 

Group 

c/o Gulf Coast Computer 

Exchange 

241 N. f yndall Pkwy. 

P.O. Box 6215 

Panama City. FL 32401 

(904) 785-6441 

Richard Scofieid 

Gainesville Commodore 

Users Club 

3604-20ASW31stDr. 

Gainesville, FL 32608 

Louis Wallace 

64 Users Group 

P.O. Box 561689 

Miami. FL 33156 

(305) 274-3501 

Eydie Sloane 

Brandon Users Group 

108 Anglewood Dr. 

Brandon. FL 33511 

(813) 685-5138 

Paul Daugherty 

Commodore 64/VIC 20 User Group 

Martin Marietta Aerospace 

P.O. Box 5837. MP 142 

Orlando. FL 32855 

(305) 352-3252/2266 

Mr. Earl Preston 

Brandon Commodore Users Group 

414 E Lumsden Rd. 

Brandon. FL 33511 

Gainesville Commodore Users Group 

Santa Fe Community College 

Gainesville. FL 32602 

James E. Birdsell 
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Commodore Computer Club 

P.O. Box 21138 

St. Petersburg, FL 33742 

Commodore Users Group 

545 E. Park Ave. 

Apt #2 

Tallahassee, FL 32301 

(904) 224-6286 

Jim Neil! 

The Commodore Connection 

PO Box 6684 

West Palm Beach , FL 33405 

GEORGIA 

VIC Educators Users Group 

Cherokee County Schools 

1 10 Academy St 

Canton. GA 30114 

Dr. Al Evans 

BIdg. 68, FLETC 

Glynco.GA 31524 

Richard L. Young 

VIC-tims 

P.O. Box 467052 

Atlanta, GA 30346 

1404) 922-7088 

Eric Ellison 

HAWAII 

Commodore Users Group of Honolulu 

c/oPSH 

824 Bannister St. 

Honolulu, HI 

[808) 848-2088 

3rd Fri. every month 

IDAHO 

GHS Computer Club 

c/o Grangeville High School 

910 S. DSt 

Grangeville, ID 83530 

Don Kissinger 

S.RH.S. Computer Club 

c/o Salmon River H.S. 

Riggins, ID 83549 

Barney Foster 

Commodore Users 

548 E Center 

Pocatello, ID 83201 

(2081 233-0670 

Leroy Jones 

Eagle Rock Commodore Users Group 

900 S. Emerson 

Idaho Falls, ID 83401 

Nancy J. Picker 

ILLINOIS 

Shelly Wemlkoff 

2731 N. Milwaukee 

Avenue 

Chicago. IL 60647 

VIC 20/64 Users Support 

Group 

c/o David R. Tarvin 

114 S. ClarkStree! 

Pana, IL 62557 

(217) 562-4568 

Central Illinois PET User 

Group 

635 Maple 

ML Zion.IL 62549 

(217)864-5320 

Contact: Jim Oldfield 

ASM/TED User Group 
200 S. Century 
Rantoul, IL 61866 
(217| 893-4577 
Contact: Brant Anderson 


PET VIC Club (FVC) 

40 S. Lincoln 

Mundelein, IL 60060 

Contact: Paul Schmidt, 

President 

Rockford Area PET Users 

Group 

1608 Benton Street 

Rockford, IL 61 107 

Commodore Users Club 

1707 East Main St 

Olney.IL 62450 

Contact: David E Lawless 

VIC Chicago Club 

3822 N.Bell Ave, 

Chicago, IL 60618 

John L. Rosengarten 

Chicago Commodore 64 

Users & Exchange Group 

P.O. Box 14233 

Chicago, IL 60614 

Jim Robinson 

Fox Valley PET Users 

Group 

833 Willow St. 

Lake in the Hills, IL 60102 

(312) 658-7321 

Art DeKneef 

The Commodore 64 Users 

Group 

P.O. Box 572 

Glen Ellyn,lL 60137 

(312) 790-4320 

Gus Pagnotta 

Oak Lawn Commodore Users Group 

The Computer Store 

11004 S.Cicero Ave. 

Oak Lawn, IL 60453 

[312)499-1300 

Bob Hughes 

The Kankakee Hackers 

RR#l.Box279 

St Anne, IL 60964 

(815) 933-4407 

Rich West erman 

INDIANA 

PET/64 Users 
10136 E. 96th St. 
Indianapolis. IN 46256 
(317) 842-6353 
Jerry Brinson 
Cardinal Sales 
6225 Coffman Road 
Indianapolis, IN 46268 
[317) 298-9650 
Contact: Carol Wheeler 
CHUG [Commodore 
Hardware Users Group) 
12104 Meadow Lane 
Oaklandon, IN 46236 
Contact: Ted Powell 
VIC Indy Club 
P.O. Box 11543 
Indianapolis, IN 46201 
(317) 898-8023 
Ken Ralston 
Northern Indiana 
Commodore Enthusiasts 
927 S. 26th St 
South Bend. IN 46615 
Eric R. Bean 

Commodore Users Group 
1020 Michigan Ave. 


Logansport, IN 46947 

(219)722-5205 

Mark Bender 

Computer Workshop VIC 20/64 Club 

282 S. 600 W. 

Hebron. IN 46341 

(219) 988-4535 

MaryO'Bringer 

The National Science Clubs of America 

Commodore Users Division 

7704TaftSt. 

MerrillvUIe. IN 46410 

Brian Lapley or Tom Vlasic 

East Central Indiana VIC User Group 

Rural Route #2 

Portland, IN 47371 

Stephen Erwin 

National VIC 20 Program Exchange 

102 Hickory Court 

Portland, IN 47371 

(2191 726-4202 

Stephen Erwin 

IOWA 

Commodore User Group 

114 8th St. 

Ames, IA 50010 

Quad City Commodore Club 

1721 Grant St. 

Bettendorf, IA 52722 

(319) 355-2641 

John Ylgas 

Commodore Users Group 

965 2nd St 

Marion, IA 52302 

(319) 377-5506 

Vem Rotert 

3rd Sun. of month 

Siouxland Commodore Club 

2700 Sheridan St 

Sioux City, IA 51 104 

(712) 258-7903 

Gary Johnson 

1st & 3rd Monday of month 

421 W, 6th St 

Waterloo, IA 50702 

(319) 232-1062 

Frederick Volker 

Commodore Computer Users 

Group of Iowa 

Box 3140 

Des Moines, IA 50316 

(515) 263-0963 or (515) 287-1378 

Laura Miller 

KANSAS 

Wichita Area PET 

Users Group 

2231 Bulllnger 

Wichita, KS 67204 

(316) 838-0518 

Contact: Mel Zandler 

Kansas Commodore 

Computer Club 

101 S. Burch 

Olathe, KS 66061 

Contact: Paul B. Howard 

Commodore Users Group 

6050 S. 183 St West 

Viola. KS 67149 

Walter Lounsbery 

KENTUCKY 

VIC Connection 

1010 S. Elm 

Henderson, KY 42420 

Jim Kemp 


LOUISIANA 

Franklin Parish Computer 

Club 

#3 Fair Ave. 

Winnlsboro. LA 71295 

James D. Mays, Sr. 

NOVA 

917 Gordon Si. 

New Orleans, LA 70117 
(5041 948-7643 
Kenneth McGruder, Sr. 
VIC 20 Users Group 
5064 Bowdon St 
Marrero, LA 70072 
(504)341-5305 
Wayne D. Lowery. R.N. 

MARYLAND 

Assoc, of Personal 
Computer Users 
5014 Rodman Road 
Bethesda, MD 20016 
Blue TUSK 
700 East Joppa Road 
Baltimore, MD 21204 
Contact: Jim Hauff 
House of Commodore 
8835 Satyr Hill Road 
Baltimore, MD 21234 
Contact: Ernest J. Fischer 
Long Lines Computer Club 
323 N. Charles St, Rm. 201 
Baltimore, MD 21201 
Gene Moff 

VIC & 64 Users Group 
The Boyds Connection 
21000 Clarksburg Rd. 
Boyds, MD 20841 
(301) 428-3174 
Tom DeReggl 

VIC 20 Users Group 

23 Coventry Lane 

Hagersiown, MD 21740 

Joseph Rutkowski 

Hagersiown Users Group 

1201-B Marshall St 

Hagerstown. MD 21740 

(301) 790-0968 

Greg Stewart 

1st & 3rd Friday of month 6:30 p.m. 

Rockville VIC/64 Users Group 

13013 Evanstown St 

Rockville. MD 20853 

(301)946-1564 

Meryle or Tom Pounds 

The Compucats' Commodore 

Computer Club 

680 W.Bel Air Ave. 

Aberdeen, MD 21001 

1301) 272-0472 

Betty Jane Schueler 

MASSACHUSETTS 

Eastern Massachusetts 

VIC Users Group 

c/o Frank Ordway 

7 Flagg Road 

Marlboro, MA 02173 

VIC Users Group 

c/o Dene Hoffman-Sholar 

193 Garden St 

Needham. MA 02192 

Commodore Users Club 

Stoughton High School 

Stoughton, MA 02072 

Contact: Mike Lennon 
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Berkshire PET Lovers 
CBM Users Group 
Taconlc High 
Pittsfield. MA 01201 
The Boston Computer 
Society 

Three Center Plaza 
Boston, MA 02108 
(617) 367-8080 
Mary E. McCann 

VIC Interface Club 

C'o Procter & Gamble Inst Shop 

780 Washington St. 

Quincy. MA 02169 

C. Gary Hall 

Masspel Commodore Users Group 

P.O. Box 307 

East Taunton, MA 027 18 

David Rogers 

Raytheon Commodore Users Group 

Raytheon Company 

Hanwell Rd. GRA-6 

Bedford, MA 01730 

John Rudy 

Commodore 64 Users 

Group of The Berksnires 

184 Highland Ave. 

Pittsfield, MA 01201 

Ed Rucinski 

MICHIGAN 

David Liem 
14361 Warwick Street 
Detroit. MI 48223 
VIC Users Club 
University of Michigan 
School of Public Health 
Ann Arbor. Ml 48109 
Contact: John Gannon 

Commodore User Club 

32303 Columbus Drive 

Warren. Ml 48093 

Contact: Robert Steinbrecher 

Commodore Users Group 

c/o Family Computer 

3947 W. 12 Mile Rd. 

Berkley. MI 48072 

W, Michigan VIC 20-64 Users 

1311 Portland NE 

Grand Rapids. Ml 49505 

(616)459-7578 

Jim D'Haem 

VIC for Business 

6027 Orchard Ct 

Lansing. Ml 48910 

Mike Marotta 

South Computer Club 

South Jr. High School 

45201 Owen 

Belleville, Mi 48111 

Ronald Ruppert 

Commodore Users Group 

co Ealon Rapids Medical Clinic 

101 Spicetville Hwy, 

Eaton Rapids, Ml 48827 

Albert Meinke 111. M.D. 

South East Michigan Pel Users Group 

Box 2 14 

Farminglon. MI 48024 

Norm Eisenberg 

Commodore Computer Club 

4106 Eastman Rd. 

Midland, MI 48640 

(517)835-5130 

John Walley 

9:30 p.m. Sept'May 

II 


VIC. 64, PET Users Group 

8439 Arlis Rd. 

Union Lake. Ml 48085 

363-8539 

Bert Searing 

VIC Commodore User Club 

486 Michigan Ave. 

Mariesville. MI 48040 

(313)364-6804 

M. Gauthier 

MINNESOTA 

MUPET (Minnesota Users of 

PET) 

P.O. Box 179 

Annandale. MN 55302 

c/o Jon T. Minerich 

Twin Cities Commodore 

Computer Club 

6623 Ives Lane 

Maple Grove. MN 55369 

(612) 424-2425 

Contact: Rollie Schmidt 

MISSOURI 

KCPUG 

5214 Blue Ridge Boulevard 

Kansas City. MO 64 133 

Contact: Rick West 

(816) 356-2382 

PET SET Club of St. Louis 

633 Bent Oak Drive 

Lake St. Louis, MO 63367 

(314) 625-2701 or 625-4576 

Tony Ott 

VIC 1NFONET 

P.O. Box 1069 

Branson. MO 65616 

(417) 334-6099 

Jory Sherman 

Worth County PET Users 

Group 

Grant City. MO 

(816) 564-3551 

David Hardy 

Mid-Missouri Commodore Club 

1804 Vandiver Dr. 

Columbia. MO 65201 

(314)474-4511 

Phil Bishop 

MONTANA 

Powder River 
Computer Club 
Powder River County 
High School 
Broadus. MT59317 
Contact: Jim Sampson 
Commodore User Club 
1109 West Broadway 
Butte, MT 59701 
Contact: Mike McCarthy 
NEVADA 

Las Vegas PET Users 
Suite 5-315 

5130 E. Charleston Blvd. 
Las Vegas. NV 89122 
Gerald Hasty 
NEW JERSEY 
Amateur Computer Group 
18 Alpine Drive 
Wayne. NJ 07470 
Somerset Users Club 
49 Marcy Street 
Somerset, NJ 08873 
Contact. Robert Holier 


Educators Advisory 
P.O. Box 186 
Medford, NJ O8055 
(609)953-1200 
John Handfield 

VIC-TIMES 

46 Wayne Street 

Edison, NJ 08817 

Thomas R. Molnar 

VIC 20 User Group 

67 Distler Ave. 

W. Caldwell, NJ 07006 

(201)284-2281 

G. M. Amin 

VIC Software Development Club 

77 Fomalhaut Ave. 

Sewell. NJ 08080 

H. R Rosenberg 

ACGNJ PET VICCBM 

User Group 

30 Riverview Terr. 

Belle Mead. NJ 08502 

(201)359-3862 

J. M. Pylka 

Soulh Jersey Commodore Computer 

Users Club 

46-B Monroe Park 

Maple Shade. NJ 08052 

(609) 667-9758 

Mark Orthner 

2nd Fri. of month 

NEW HAMPSHIRE 

Northern New England 
Computer Society 
P.O. Box 69 
Berlin. NH 03570 
TBH VIC-NlCs 
P.O. Box 981 
Salem. NH 03079 
NEW MEXICO 
Commodore Users Group 
6212Karlson,NE 
Albuquerque, NM87113 
(505)821-5812 
Danny Byrne 
NEW YORK 

Capital District 64^10 20 

Users Group 

363 Hamilton St. 

Albany. NY 12210 

(518)436-1190 

Bill Pizer 

Long Island PET Society 

Ralph Bressler 

Harborfields H5 

Taylor Avenue 

Grcenlawn, NY 11740 

PET User Club 

of Westchester 

P.O. Box 1280 

White Plains. NY 10602 

Contact: Ben Meyer 

LIVE I Long Island 

VIC Enlhusiastsl 

17 Picadilly Road 

Great Neck. NY 11023 

Contact: Arnold Friedman 

Commodore Masters 

25 Croton Ave. 

Staten Island. NY 10301 

Contact: Stephen Farkouh 

VIC Users Club 
76 Radford St 
Staten Island. NY 10314 
Contact: Michael Frantz 


Rockland County Commodore 

Users Group 

c/o Ross Garber 

14 Hillside Court 

Suffem. NY 10901 

(914) 354-7439 

West Chester County VIC 

Users Group 

P.O. Box 146 

Pelham. NY 10552 

Joe Brown 

SPUG 

4782 Boston Post Rd. 

Pelham. NY 10803 

Paul Skipski 

ViC 20 User Club 

151-28 22nd Ave. 

Whitestone. NY 1 1357 

Jean F. Coppola 

VIC 20 User Club 

339 Park Ave. 

Babylon. NY 11702 

(516)669-9126 

Gary Overman 

VIC User Group 

1250 Ocean Ave. 

Brooklyn, NY 11230 

(212)859-3030 

Dr. Levitt 

L&M Computer Club 

VIC 20 & 64 

4 Clinton St. 

Tully. NY 13159 

(315) 696-8904 

Dick Mickelson 

Commodore Users Group 

1 Corwin PI. 

Lake Katrine, NY 12449 

J. Richard Wright 

VIC 20/Commodore 64 

Users Group 

31 Maple Dr 

Lindenhurst, NY 11757 

(516)957-1512 

Pete Lobol 

VIC Information Exchange 

Club 

336 W. 23 St. 

Deer Park, NY 11729 

Tom Schlegel 

SASE & phone please 

New York Commodore 

Users Group 

380 Riverside Dr., 7Q 

New York. NY 10025 

(212)566-6250 

Ben Tunkelang 

Parsippany Computer Group 

51FerncliffRd. 

Morris Plains. NJ 07950 

[201)267-5231 

Bob Searing 

Hudson Valley Commodore Club 

1 Manor Dr. 

Woodstock, NY 12498 

F.S. Goh 

1st Wednesday of month 

UVICS (Long Island VIC Society) 

20 Spyglass Lane 

East Setauket, NY 11733 

(516)751-7844 

Lawrence Stefani 

VIC Users Group 

c/o Sloney Brook Learning Center 

1424 Stoney Brook Rd. 
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Stoney Brook, NY 11790 

(516)751-1719 

Robert Wurtzel 

Poughkeepsie VIC User Group 

2 Brooklands Farm Rd. 

Poughkeepsie. NY 12601 

(914)462-4518 

Joe Steinman 

VIC 20 User Group 

Paper Service Division 

Kodak Park 

Rochester, NY 14617 

David Upham. Sr. 

NORTH CAROLINA 

Amateur Radio PET Users Group 

P.O. Box 30694 

Raleigh. NC 27622 

Contact: Hank Roth 

VIC Users Club 
Co David C. Fonenberry 
Route 3. Box 351 
Uncolnton.NC 28092 

Microcomputer Users Club 
Box 17142 BethabaraSta. 
Winston-Salem. NC 271 16 
Joel D. Brown 
VIC Users Club 
Rt 11. Box 686 
Hickory. NC2S601 
Tim Gromlovits 
OHIO 

Dayton Area PET 
User Group 
933 Livingston Drive 
Xenia, OH 45385 
B. Worby, President 
(513) 848-2065 
J. Watson, Secretary 
(513) 372-2052 

Central Ohio PET 

Users Group 

107 S. Westmcor Avenu e 

Columbus. OH 43204 

(614) 274-6451 

Contact: Philip H. Lynch 

Commodore Computer Club of Toledo 

734 Donna Drive 

Temperance, Ml 48182 

Gerald Carter 

Chillicothe Commodore 

Users Group 

P.O. Box 211 

Chillicothe. OH 45601 

William A. Chaney 

Licking County 64 Users Group 

323SchulerSt. 

Newark. OH 43055 

(614)345-1327 

11433 Pearl Rd. 

Strongsville. OH 44136 

Paul M. Warner 

OKLAHOMA 

Southwest Oklahoma 

Computer Club 

P.O.Box 6646 

Uwton, OK 73504 

Garry Lee Crowell 

1:30 1st Sunday at 

Lawton City Library 

Tulsa Area Commodore Users Group 

Tulsa Computer Society 

P.O. Box 15238 

Tulsa. OK 74112 

Annette Hinshaw 


Commodore Oklahoma Users Club 

4000 NW 14th St. 

Oklahoma City, OK 73107 

(405) 943-1370 

Stanley B. Dow 

Commodore Users 

Box 268 

Oklahoma City. OK 73101 

Monte Maker, President 

OREGON 

NW PET Users Group 

John F. Jones 

2134 N.E. 45th Avenue 

Portland. OR 972 13 

PENNSYLVANIA 

PET User Group 

Gene Beals 

P.O. Box 371 

Monlgomcryville, PA 18936 

Penn Conference Computer Club 

c/o Penn Conference of SDA 

720 Museum Road 

Reading, PA 19611 

Contact: Dan R- Knepp 

PACS PET Users Group 

20lh & Olney Sis. 

Philadelphia. PA 19141 

(215) 951-1258 

Stephen Longo 

Glen Schwartz 

807 Avon 

Philadelphia, PA 19116 

Gene Planchak 

4820 Anne Lane 

Sharpsville. PA 15150 

(412) 962-9682 

PPG (Pittsburgh PET Group) 

c/oJoelACaSar. DMD 

2015 Garrick Drive 

Pittsburgh, PA 15235 

(412)371-2882 

Westmoreland Commodore 

Users Club 

c/o DJ & Son Electronics 

Colonial Plaza 

Lalrobe. PA 15650 

Jim Mathers 

COMPSTARS 

440Manatawny Si. 

Pottstown, PA 19464 

Larry Shupinski. Jr. 

Meet a! Audio Video 

Junction 

Commodore Users Club 

3021 Ben Venue Dr. 

Greensburg. PA 15601 

(412) 836-2224 

Jim Mathers 

VIC 20 Programmers, Inc. 

c/o Watson Woods 

1 15 Old Spring Rd. 

Coatesville, PA 19320 

Robert Gougher 

G.RC. User Club 
300 Whitten Hollow Rd. 
New Kensington, PA 15068 
Bill Bolt 

NADC Commodore Users Club 

248 0akdaleAve. 

Horsham. PA 19044 

Norman McCrary 

CACC (Capitol Area Commodore 

Club) 

134 College Hill Rd. 


Enola, PA 17025 

(717) 732-2123 

Lewis Buttery 

Union Deposit Mall at 7 p, m. 

G/C Computer Owners Group 

P.O. Box 1498 

Reading. PA 19607 

Jo Lambert 

(215)775-2600,ex6472 

Boeing Employees Personal 

Computer Club 

The Boeing Vertol Co. 

P.O. Box 16S58 

Philadelphia. PA 19142 

(215) 522-2257 

Jim McLaughlin 

PUERTO RICO 

CUG of Puerto Rico 

RFD #1. Box 13 

San Juan. PR 00914 

Ken Burch 

VIC 20 User Group 

655 Hernandez St. 

Miramar, PR 00907 

Robert Morales, Jr. 

RHODE ISLAND 

Irving B. Silverman, CPA 

160 Taunton Ave. 

E. Providence. Rl 02914 

Contact: Michelle Chavanne 

Newport VIC/64 Users 

10 Maitland Ct 

Newport. Rl 02840 

(401)849-2684 

Dr. Matt McConeghy 

The VIC 20 Users Club 

Warwick. R! 02886 

Tom Davey 

SOUTH CAROLINA 

Beaufort Technical College 

100 S. Ribaut Rd. 

Beaufort, SC 29902 

Dean of Instruction 

Computer Users Society 

of Greenville 

Horizon Records-Home Computers 

347S. PleasantburgDr. 

Greenville. SC 29607 

(803) 235-7922 

Bo Jeanes 

SOUTH DAKOTA 

PET User Group 

515 South Duff 

Mitchell, SD 57301 

(605)996-8277 

Contact: Jim Dallas 

VIC/64 Users Club 

203 E, Sioux Ave. 

Pierre. SD 57501 

(605) 224-4863 

Larry Lundeen 

TENNESSEE 

River City Computer 

Hobbyists 

Memphis. TO 

1st Mon. at Main Library 

Nashville Commodore Users Group 

P.O. Box 121282 

Nashville. TN 37212 

3rd Thurs. at Cumberland Mus 

Commodore User Club 

Metro Computer Center 

1800 Dayton Blvd. 


Chattanooga, TN 37405 

Mondays 7:30 pm 

Metro-Knoxville 64 Users Club 

7405 Oxmoor Rd„ Rt. #20 

Knoxville.TN 37921 

(615) 938-3773 

Ed Pritchard 

TEXAS 

SCOPE 

1020 Summit Circle 

Carrolton.TX 75006 

PET Users 

2001 Bryan Tower 

Suite 3800 

Dallas, TX 75201 

Larry Williams 

P.O. Box 652 

San Antonio. TX 78293 

PET User Group 

John Bowen 

TexasA&M 

Microcomputer Club 

Texas A & M, TX 

CHUG (Commodore Houston 

Users Group) 

8738 Wildforest 

Houston. TX 77088 

(7131999-3650 

Contact: John Walker 

Corpus Christ) Commodores 

3650TopekaSt. 

Corpus Christi.TX 78411 

(512)852-7665 

Bob McKelvy 

Commodore Users Group 

5326 Cameron Rd. 

Austin. TX 78723 

(512)459-1220 

Dr. Jerry D. Frazee 

VIC Users Group 

3817 64th Dr. 

Lubbock. TX 79413 

Southeast Houston VIC 

Users Group 

11423 Kirk Valley Dr. 

Houston. TX 77089 

(713)481-6653 

64 Users Group 

2421 Midnight Circle 

Piano. TX 75075 

S.G. Grodin 

Savid Computer Club 

312 West Alabama 

Suite 2 

Houston. TX 77006 

Davi Jordan. Chairman 

UTAH 

Utah PUG 

Jack Fleck 

2236 Washington Blvd. 

Ogden.UT 84401 

The Commodore Users 

Club 

742 Taylor Avenue 

Ogden.UT 84404 

Contact: Todd Woods Kap, 

President 

David J. Shreeve, 

Vice President 

TheVIClic 

799 Ponderosa Drive 

Sandy, UT 84070 

Contact: Steve Graham 
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user groups 


VIC 20 Users 

324 N. 300 W. 

Smlthfleld, UT 84335 

Dave DeCorso 

Northern Utah VIC & 64 

Users Group 

P.O. Box 533 

Garland, UT 843 12 

David Sanders 

The Commodore Users Group 

652 West 700 North 

Clearfield, UT 84015 

(801)776-3950 

Rodney Keller, Richard Brenchly 

VIRGINIA 

Northern VA PET Users 
Bob Karpen 
2045 Eakins Court 
Reston,VA 22091 
(803) 860-9116 
VIC Users Group 
Rt 2, Box 180 
Lynchburg, VA 24501 
Contact: Dick Rossignol 
VIC Users Group 
c/o Donnie L. Thompson 
1502 Harvard Rd 
Richmond, VA 23226 
Dale City Commodore 
User Group 
P.O. Box 2004 
Dale City, VA 22193 
(703) 680-2270 
James Hogler 

Tidewater Commodore 

Users Group 

4917 Westgrove Rd. 

Virginia Beach. VA 23455 

Fred Monson 

Fredericksburg Area 

Computer Enthusiasts 

P.O. Box 324 

Locust Grove, VA 22508 

(703) 972-7195 

Michael Parker 

Commonwealth 20/64 

Users Group 

1773 Wainwright Dr. 

Reston.VA 22090 

(703)471-6325 

Tal Carawan, Jr. 

VIC 20 Victims 

4301 Columbia Pike #410 

Arlington, VA 22204 

(703] 920-0513 

Mike Spengel 

Peninsula Commodore 64 

Users Group 

124 Bumham Place 

Newport News. VA 23606 

(804)595-7315 

Richard G. Wilmoth 

WASHINGTON 

NW PET Users Group 

2565 Dexter N. 3203 

Seattle, WA 98109 

Contact Richard Ball 

PET Users Group 

c/o Kenneth Tong 

1800TaylorAve.N102 

Seattle, WA 98102 


Whidbey Island Commodore 

Computer Club 

947 N. Burroughs Ave. 

Oak Harbor, WA 98277 

Michael D. Clark 

Central Washington 

Commodore Users Group 

1222 S. 1st St. 

Yakima, WA 98902 

Tim McElroy 

Blue Mountain Commodore 

Users Club 

667 Canary Dr. 

Walla Walla, WA 99362 

1509) 525-5452 

Keith Rodue 

Spokane Commodore User Group 

N. 4311 Whltehouse 

Spokane, WA 99205 

(509) 328-1464 

Stan White 

WEST VIRGINIA 

Personal Computer Club 

P.O. Box 1301 

Charleston, WV 25325 

Cam Cravens 

WISCONSIN 

Sewpus 

c/o Theodore J. Polozynski 

P.O. Box 21851 

Milwaukee, Wl 53221 

Waukesha Area Commodore 
User Group (WACUG I 
256 WW. Broadway 
Waukesha, Wl 53186 
Contact: Walter Sadler 
(414) 547-9391 

Commodore User Group 
1130 Elm Grove St. 
Elm Grove, Wl 53122 
Tony Hunter 
Commodore 64 Software 
Exchange Group 
P.O. Box 224 
Oregon. Wl 53575 
E. j. Rosenberg 

CLUB 84 

6156 Douglas Ave. 

Caledonia. Wl 53108 

(414) 835-4645 pm 

Jack White 

2nd Sat every month 10:00 am 

VIC-20& 64 User Group 

522 West Bergen Dr. 

Milwaukee, Wl 53217 

(414) 476-8125 

Mr. Wachtl 

Menomonie Area Commodore 

Users Group 

510 12th St. 

Menomonie. Wl 54751 

(715) 235-4987 

Mike Williams 

WYOMING 

Commodore Users Club 
c/o Video Station 
670 North 3rd #B 
Laramie, WY 82070 
(307] 721-5908 
Pamela Nash 


CANADA 

Toronto PET 

Users Group 

381 Lawrence Ave. West 

Toronto, Ontario, Canada 

M5M 1B9 

(416) 782-9252 

Contact: Chris Bennett 

PET Users Club 

c/o Mr. Brown 

Valley Heights Secondary School 

Box 159 

Langton, Ont N0E 1G0 

Vancouver PET Users Group 

P.O. Box 9 1164 

West Vancouver, British 

Columbia 

Canada V7V3N6 

CCCC (Canadian 

Commodore Computer Club) 

c/o Strictly Commodore 

47 Coachwood Place 

Calgary. Alberta, Canada 

T3H 1E1 

Contact: Roger Olanson 

W.P.U.G. 

9-300 Enniskillen Ave. 

Winnipeg. Manitoba R2V 0H9 

Larry Neufeld 

VIC-TIMS 

2-830 Helena St 

Trail. British Columbia 

V1R3X2 

(604) 368-9970 

GregGoss 


Arva Hackers 

Medway High School 

Arva, Ontario N0M 1C0 

D. Lerch 

Nova Scotia Commodore 

Computer Users Group 

66 Landrace Cres. 

Dartmouth, N.S. B2W 2P9 

Andrew Cornwall 

Bonnyville VIC Cursors 

Box 2100 

Bonnyville, Alberta T0A 0L0 

(403) 826-3992 

Ed Wittchen 

FINLAND 

VIC-Club in Helsinki 

c/o Matti Aamlo 

Linnustajankj 2B7 

SF-02940ESP0094 

Finland 

ITALY 

Commodore 64 Club 

Universita di Studi shan 

V. Avigliana 13/1 

10138 TORINO 

ITALY 

KOREA 

Commodore Users Club 

K.P.O. Box 1437 

Seoul, Korea 

Contact: S. K. Cha 


User Bulletin Board 


User Groups Forming: 


FLORIDA 

Tampa Bay area 
Contact Jeff Comes 
10208 N. 30th St. 
Tampa 33612 
(813)977-1056 

NEW YORK 

Buffalo PET Users Group 
369 Niagra Falls Blvd. 
Amherst, NY 14226 
Contact Paul Van Siclde at 
(716) 835-5825 
or Peter Heffner at 
(716) 832-1806 

TEXAS 

Anyone interested in organizing a 
user group in the 76XXX zip code 
area? Contact Charles Knerr 
2705 Kidd Dr, 
Pantego 76013 
265-1381 
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MEXICO 

Asociacion De Usarios 

Commodore 

c/o Alejandro Lopez 

Arechiga 

Holbein 174-6° Piso 

Mexico 18, D.H 

Club de Usarios Commodore 

Sigma del Norte 

Mol del Valle, Local 44 

Garza Garcia, N.L. 66220 

NEW ZEALAND 

Commodore Users Group 
Meet at VHF Clubrooms 
Hazel Ave. 
Mount Roskitl 

3rd Wed. of month, 7:30 pm 
Roger Altena 278-5262 
Nelson VIC Users Group 
c/o P.O. Box 860 
Nelson, New Zealand 
Peter Archer 

E.R. Kennedy 

c/o New Zealand Synthetic 

Fuels Corp. Ltd. 

Private Bag 

New Plymouth 

NORWAY 

ViC Club of Norway 

NedreBankegtlO, 

1750 Halden 

Norway 


UNITED KINGDOM 

North London Hobby 

Computer Club 

Dept of Electronics & 

Communications 

Engineering 

The Polytechnic of North 

London 

Holloway Rd. 

London N78DB 

Croydon Microcomputer Club 

UlSelhurstR. 

Selhurst, London SE25 6LH 

01-653-3207 

Vernon Gifford 


@* I cas. 

For C-64™& VIC™ People 

If you belong to only one user 

group you need to belong to 

"I CUS." 

•A user group lor people without the time or 

location to attend local meetings. 

•Access to tree public 'domain and member 

software. 

■Newsletter with unoias, helpful articles and 

programs. Plus! want ads lor members with 

used hardware, software, services wanted by 

members or ottered, etc. 

•A network ol members to help with your 

computer problems and much much more! 

Free choice of any disk or tape 

of programs with $20 

membership fee, 

WRITE: "I CUS" 

335 West 39th St. 
New York, NY 10018 


C-64 and VIC are trademarks of Commodore 
Business Machines- Inc. 


BIBLE Software 

For Commodore 64tm 
Bible learning games for 
home and Sunday school. 
Action game JONAH and 
The WHALE only $16.95. 

To order or request 
information write: 
BIBLE Software 
4169 S.E. Davidson 
Albany, OR. 97321 


IL 
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T'AIDE SOFMARE 

for use with 
PET/CBM ••' Computers, CBM disk drives and 

CBM Dot-Matrix, Tractor-Feed Printers 
(Excl udes v ViC 20 and Commodore 64) 

MATHEMATICS, BASIC SKILLS 

Twenty-five programs on disk designed for use by the classroom 
teacher as a primary source of written exercises in arithmetic, included 
ate problem sets in integers, decimals, fractions, mixed numbers ard 
percent Most problems are presented explicitly Some few, however, 
require student set-up In all cases, work is performed directly upon the 
computer-produced, exercise sheets Digits ore "spaced." where 
applicable, to provide room for comes, elc Difficulty levels are easily 
adjustable Answers are optimized fa in-closs use Five interaction 
programs are included fa diagnostics ard intensive drill S9999 

ALGEBRA 

Eighteen programs on disk that produce written exercises in linear and 
fractional equations, simultaneous equations, quadratics, signed and 
complex number arithmetic Answers are optimized fa in-class use 

S/4 99 
both disks $14999 
Please specify disk drive employed 

Add S2.5Q fa postage and hand 1 1 ng 
(Aizona residents, odd 5% soles fax) 

D lecse note. T'Aide sells only to schools Express permission is granted 
to the purchaser to copy these disks and disseminate freely within the 
district-of-purchase. 


Fa information or orde', contact 

TAIDE SOFTWARE COMPANY 

P.O. BOX 65 
EL MIRAGE, ARIZONA 85335 
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The Banner Machine™ 

For the Commodore 64 (with 5 
fonts) or the VIC-20 with 24K mem- 
ory. • Use on any Epson MX with 
Graftrax or the FX and RX printers. 

• Menu-driven program operates 
like a word processor. • Makes 
signs up to 10" tall by any 
ength. * Makes borders of vari- 
able width up to Vs" . • 8 sizes of 
letters from *A" to 6V4" high. 

• Proportional spacing; Automatic 
centering; Right and left justifying. 
S49.95 

For the Commodore 64: 

Space Raider An amazing arcade 
simulation. Your mission is to 
destroy the enemy ships, $19,95 
Super Roller Challenging dice 
game. Sprite graphics and sound, 
yahtzee-style rules of play. 514.95 
Microbroker Exciting, realistic 
and educational stock market 
simulation based on plausible 
financial events. $29.95— Tape, 
$34.95-Disk 

ABC Fun Part of a series of educa- 
tional programs for preschool aged 
children. $14.95 

File Organizer Creates Data Base 

storage system. For mailing lists, club 

rosters, check books, etc. S29.95 

t^ Commodore 6i and VIC-90 are registered 


Home Finance Manager Complete 
mini-financial management pro- 
gram that provides flexibility in 
maintaining all details of home 
record keeping. S39.9S 
Sprite Editor The easy way to 
create, copy, alter, and save up to 
224 sprite shapes. S24.95 
Cross Reference Generator for 
BASIC programs Displays fine 
numbers in which any word of 
BASIC vocabulary appears. Allows 
you to change variable name and 
ask for lines where it appears, and 
more. $19.95 

For the VIC-20: 

Caves of Windsor A cave adven- 
ture game. The object is to restore 
wealth and happiness to the small 
village of Windsor. $14.95 
Burger & Fries Fast action joystick 
game. Eat the burgers and fries but 
avoid the shakes for a top score. 
$14.95 

Catalog available mmm jam* 

Dealer inquiries invited mSim S© 

PHONE ORDERS: (703) 491-6502 
HOURS: 10 J.ra. lo 4 p.m. Man.— Sal. 


Virginia Micro Systems 
13646 Jeff Davis Hwy 
Woodbridge, VA 2S191 

trademark? of Commodore Electron.cs Ltd 


Commodore 64™ Software 

Nobody else competes with our 
Quality • Prices • Support 

EDGE CREATE-A-POEM 

I IX I i ^ notura ' language 

whhanvpoKhQ** processing program. 

Choose From These Fine Products; 


Scr.«n Editor $29.90 

Hybrid BASlC/machine lan- 
guage word processor. Con 
be used to write BASIC pro- 
gram!. Printing features. No 
character restridionj- 
Smart Terminal 529.90 
Full machine language pro- 
gram for maximum speed. 
Software controllable. Full 
let of evcope characters. 
Downloading and upload- 
ing. Full keyboard set (inc. 
t)lda, pipe, backslash). 
Electronic Artist $14.90 
{Requires Joystick.) Color 
paleife selection. Draw. 
Region fill. Image save. Cir- 
cle gentfaroj'. Straight edge 
feature. 

AH software avaitabte 


Graphics Pica. $14,90 
Plot and unplot. Fast hori- 
lonTal/ vertical line draw. 
Grayscale option. Sprite 
editor. Programmable char- 
acter editor. 
Morh/Statistict 
Package $14.90 

Linear, logarithmic regres- 
sion. Motrin routines. 
General statistics. Base 
conversions. 
Minl-Anembltr/ 
Monitor $14.90 

Full syntax checking. Under- 
standable error meuctges. 
All addressing modes. Load 
and execute commands. 
Timing stats. Pre-defined 
Kernel lobeli. 
in either cassette or disk 


Our Guarantee to You! 
Our software is guaranteed to be bug-free and 
dummy-proof with user-friendly, professional 
documentation. If you ore not satisfied, we will 
replace the software. 


Please send check or money order Specify 
cassette or disk, California residents add 
sales tax. Send for our free listing of 
available software. 

Bay Area Software 

Suite CM1, P.O. Box322, Lfwrmon, CA 94550 

Commodore 64 is a trodemork 
of Commodore Business Machines 


'MIGHTY V 
IS HERE /j 
TO SAVE 
THE DAY' 

BUSINESS 

& HOME { 
SOFTWARE I 

* Commodore 64 % 
-Vic 20 I 


' OVER 65 APPLICATIONS 
AVAILABLE ON 
CASSETTE OR DISK 


POWERBYTE 

BOX 579, 905 LORIEN DRIVE 

GWYNEDD VALLEY, PA 19437 

(609) 346-3063 
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that does not 
compute, 
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"Subject-Oriented 
Educational Software" 

Commodore, May 1983 

On page 65, the phone number 
for SLED Software is incorrect. 
The phone number should be: 
(612) 926-5820. Helen Beaubaire 
of SLED also points out that the 


company produces software for 
Junior/Senior High School Lan- 
guage Arts, although they were 
omitted from that category in 
our listing. C 


From Hayden Book 
Company 

50 Essex Street 
Rochelle Park, NJ 07662 

VIC Graphics by Nick Hamp- 
shire. Includes 38 complete 
graphics programs for the VIC 20. 
Applications range from art to 
games to education and business. 
Programs build to reveal tech- 
niques of three-dimensional 
drawing. Requires use of the 
Super Expander cartridge. 

Using Microcomputers in 
Business: A Guide for the 
Perplexed, Second Edition by 
Stanley S. Veit. Describes the ad- 
vantages and disadvantages of 
computerization and enables the 
potential purchaser to make intel- 
ligent decisions. 

Secrets of Better BASIC by 

Ernest E. Mau. Offers faster and 
more effective programs for testing 
and debugging, more efficient use 
of memory, string-handling, using 
loops and subroutines and creat- 
ing disk files. 


From Osborne/ 
McGraw Hill 

2600 Tenth Street 
Berkeley, CA 94710 

54 VisiCalc™ Programs: 
Finance-Statistics-Mathematics 

by Robert H. Hast. Manage in- 
vestments, loans, taxes and solve 
over 30 different statistical and 
mathematical problems with 
this collection of ready-to-use 
VisiCalc programs. 

Microsoft™ BASIC Made 
Easy by Walter A. Ettlin and Gre- 
gory Solberg. Gain a better under- 
standing of programming while 
you learn to develop and cus- 
tomize programs with this funda- 
mental guide. 

The Programmer's CP/M™ 
Handbook by Andy Johnson- 
Laird. An exhaustive coverage 
of CP/M-80™— its internal 
structure and major components, 
750 pages, written for the serious 
programmer. C 


Finally, the most powerful productive 
software development tool! 


More and more programmers are turning to assembly language for its flexibility and 
performance. Yet up until now they've had to rely on non-friendly, cumbersome, non- 
flexible, one processor development systems that left assembly language program- 
ming at best difficult. 

BUT MOW THE SIMA™-CNIVERSAL ASSEMBLER DEVELOPMENT PACKAGE 
is going to REVOLUTIONIZE the way machine language programs are written 
by offering the most advanced software development capabilities available on 
any computer system today. Analytical Software Design is offering its in-house 
SIMA Development Package for Commodore Computers. Once you compare 
the SIMA Development Package you'll soon see why you CANT be without one. 


PROJECT 
DEFINITION 


SOFTWARE 
DEVELOPMENT 


I 


FINISHED 
PRODUCT 



IMAGINE 

• 6502, 65C02, 6800, 6809, 8080, Z80 processors supported by one assembler, 

• By far the most advanced source code EDITOR you have ever seen. 

• Up to 12 character label lengths. 

• Online HELP screens so you won't have to 
remember command syntax's. 

• Upper/Lower/Graphic symbols supported. 

• Over 75 source code subroutines for the 
6502 processor. 

• Linker - Loader that down loads object 
code to EPROM program, software RS-232 
port, Centronic parallel port, IEEE modem 
or RAM memory. 

• Sorted label file. 

• Label cross reference file with source code file numbers. 

• Conditional assembly. 

• The most powerful 6502 debugging monitor. 

• Complete BASIC and DISK DRIVE memory maps. 

• Source Code conversion program for the MAE and CBM Assemblers. 

• USER MANUAL that teaches you 6502 programming. 

• PRICE TO GOOD TO BE TRUE. 

Price: $75.00 
with MAE or CBM® Assembler trade in $50.00 

ANALYTICAL SOFTWARE DESIGN, INC. 

220 City Boulevard West, Suite #1 1 1 

Orange, California, 92668 

(714)978-3111 

StMA 1j a trademark of Analytical Software Design. Inc. CBM is a registered trademark of Commodore Electronics Ltd. Product specifications moy 
change without notice. 


new products 


The following information 
is taken from new product 
announcements sent to us 
by independent manufac- 
turers and is provided only 
to help keep our readers 
abreast of developments. 
Commodore does not en- 
dorse any of the products 
mentioned, has not tested 
them and cannot vouch for 
their availability. If you 
have any problems with 
any of the products listed 
here, please write to us. 


Company: 

RAK Electronics 

Box 1585 

Orange Park, FL 32067-1585 

Product: 

Commodore 64 World 
Clock — See the time in cities 
all around the globe at a single 
glance. Plots a high-res graphic 
map of the world, along with 
numerous cities and their times. 
Calculates world time from your 
local time. Even plots the apparent 
position of the sun. Instructions in- 
cluded allow you to customize the 
program by adding your city and 
local time to the display. Corrects 
for Daylight Savings Time and 
AM and PM in the United States. 
Price: $7.95 tape; $10.95 disk. 
Add $2.00 shipping and handling. 


Company: 

PC Specialties 
P.O. Box 23 
Fleming, PA 16833 

Product: 

VIC 20 expansion 

hardware — Model VM101 ex- 
pands the VIC's one expansion 
slot to six slots. All six slots are 
addressed through line drivers, 
which provide reliable buffered 
software slot selection. The board 
can shut off the eight data lines 
from three slots with a rotary 
switch, so even autostart game 
cartridges can be left plugged in. 
The other three slots feature an 
octal bus transceiver, which buf- 
fers all data lines into and out of 
memory expansion or I/O inter- 
faces. The VM101 also provides a 
solid state microprocessor reset 
switch to recover keyboard control 
when RUN/STOP-RESTORE 
won't, and has an on-board power 
supply for loaded systems, isola- 
tion of "noisy" I/O devices or 
non-volatile memory. 

Company: 

Robot Shack 
P.O. Box 582 
EI Toro, CA 92630 
714-768-5798 
Product: 

Two Home Robot Kits — 
DROID BUG Kit can be assem- 
bled in several hours to teach 
basic robot construction. The droid 
runs around the floor, and when it 
senses an object in its way it makes 
a buzz sound and automatically 
turns away from the obstacle. The 
X-l Kit is an advanced home robot 
that can move about anywhere 
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X-l and Droid Bug Home Robots 

at the speed of a slow walk. Some 
of its options include: on-board 
computer control, a hearing sense, 
human-approaching detection and 
alarm, obstacle sensing, ambient 
light sensing, eight-channel 
remote radio control and solar 
battery charging. Both are designed 
for ease of assembly. 

Also available for more ad- 
vanced roboteers: all parts 
needed to build your own robot 
from scratch. 

Price: DROID-BUG $99.95; X-l 
$299.95; Home Robot start-up 
package, including photos, catalog 
and club membership, $5.00 re- 
fundable with first order. 
X-l and Droid Bug Home Robots 

Company: 

(M)agreeable Software 
5925 Magnolia Lane 
Plymouth, MN 55442 
612-559-1108 
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Product: 

Stock HELPER™— for the 
Commodore 64. Written by a 
"weekend investor" for other 
weekend investors, the program 
lets you maintain a history on disk 
of stock prices and market indi- 
cators. A menu-driven tool that 
displays charts and calculates 
moving averages over a 52-week 
period. Accommodates stock 
splits, name and symbol changes 
and sorting by name and market. 
Refrains from giving you advice. 
Price: $30.00 U.S. plus $1.25 
shipping; $37.00 Canada plus 
$1.50 shipping. 


Company: 

Pro-Line Software 
Mississauga, Ontario, Canada 
L4Y4C5 

Product: 

POWER 64— a comprehen- 
sive programmer's BASIC utility 
for the Commodore 64. Written 
by Brad Templeton, with com- 
prehensive manual by Jim Butter- 
field. Provides automatic line 
numbering and re-numbering, 
complete tracing functions, single 
stepping through programs, de- 
bugging ease with a "why" com- 
mand, ability to merge programs, 
hexadecimal and decimal con- 
versions and more. Uses only 
4K of memory. 
Price: $99.95 


Company: 

Right On Programs 
P.O. Box 977 
Huntington, NY 11743 
516-271-3177 

H 


Product: 

CHALLENGEITH! Series- 
educational programs for 32K 
PET. Sold in packages containing 
three different programs on the 
sixth grade level and three on the 
fifth grade level. Each package 
consists of six sections: lessons, a 
game based on the lessons, ques- 
tions and activities, vocabulary, a 
crossword puzzle based on the 
vocabulary and a bibliography. 
Price: $100 per set 


Company: 

H & H Enterprises 
5056 North 41st Street 
Milwaukee, WI 53209 

Product: 

Disk Support— for VIC 20 and 
Commodore 64. Provides a IK 
machine language extension that 
adds twelve new commands to the 
VIC and 64. You can SAVE, SAVE 
WITH REPLACE, LOAD, VER- 
IFY, DELETE and RENAME disk 
files with two keystrokes. Also 


provided are commands that IN- 
ITIALIZE, FORMAT or VALI- 
DATE a diskette, EXECUTE any 
program, print ERROR messages 
to the screen and list the diskette's 
directory to the screen without af- 
fecting the contents of the com- 
puter's memory. Compatible with 
all memory expansion cartridges 
and with Commodore's Program- 
mer's Aid and Super Expander 
cartridges. 
Price: $14.95 


Company: 

Electronic Specialists 
171 South Main Street 
Natick, MA 01760 
617-655-1532 
Product: 

Kleen Line Security System — 
modem protection. Intended to 
suppress damaging telephone line 
spikes, the system uses two-stage 
semi-conductor and gas discharge 
tube suppression techniques. An 
isolated ground is employed to 
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Kleen Line Security System 


COMMODORE: THE MICROCOMPUTER MAGAZINE Issue 25 127 


new products 


isolate equipment from damaging 
lightning and discharge current. 
Price: $56.95 


Company: 

Spinnaker Software 
215 First Street 
Cambridge, MA 02142 
617-868-4700 
Product: 

Two educational games for the 
Commodore 64 — Fraction Fever, 
on cartridge, combines numerical 
and visual representations of frac- 
tions, using quick joystick action. 
Alphabet Zoo teaches children 
ages 3-8 the relationship of letters 
and sounds and how to spell while 
having fun. On disk or cartridge. 
Price: Contact company 

Company: 

Computer Directions 
for Schools 
P.O. Box 1136 
Livermore, CA 94550 

Product: 

Manuals to help educators plan 
computer-related activities — Titles 
include: Organizing a Computer 
Club for Elementary School Chil- 
dren; Student Involvement — 
Implementing a Computer Tutor 
Program; Gaining Community 
Support — Planning a Computer 
Awareness Day; Teaching Word 
Processing in the Elementary 


School and Organizing Your 
Computer Program — Lab vs. 
Classroom Usage. Several new 
titles available soon. 

Price: $6.5046.95 


Company: 

Riverside Data, Inc. 

P.O. Box 300 

Harrods Creek, KY 40027 

502-228-3820 

Product: 

PLUMB: Probing the World of 
Personal Telecommunications — 
newsletter to help computer users 
explore the many services avail- 
able when their computer is 
connected with a modem and 
telephone. Provides usable, 
non-technical information about 
telecommunications. 
Price: $20. 00 for five issues. C 
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APPLE" lie 64K 


A personal computer 
is supposed to be a 
computer for persons. 
Not just wealthy 
persons. Orwhiz-kid 
persons. Or privileged 
persons. 

But person persons 

In other words, all the persons whom 
Apple, IBM, and Radio Shack seem to 
have forgotten about (including, most 
likely you). 

But that's okay Because now you can 
get a high-powered home computer 
without taking out a second mortgage 
on your home. 

It's the Commodore 64. We're not 
talking about a low-priced computer that 
can barely retain a phone number 
We're talking about a memory of 64K. 
Which means it can perform tasks most 
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TRS-80 S III16K 


IBMPC64K 


other home computers can't, Including 
some of those that cost a lot more. 
(Take another look at the three comput- 
ers above.} 

By itself, the Commodore 64 is all 
the computer you'll ever need. Yet, if 
you do want to expand its capabilities 
some day you can do so by adding a 
full complement of Commodore pe- 
ripherals. Such as disk drives. Modems. 
And printers. 

You can also play terrific games on 
the Commodore 64. Many of which 


is a registered trademark of Apple Computet Inc 
S-80 <5 a registered trademark of Tandy Corp IBM is a registered trademark of International Business Machines Corp 


will be far more 
challenging than 
those you could 
" ever play on a 
game machine alone. 
And as great as all 
this sounds, what's 
even greater-sounding 
is the price, it's hundreds of dollars less 
than that of our nearest competitor 

So while other companies are trying 
to take advantage of the computer 
revolution, it seems to us they're really 
taking advantage of something else: 
Their customers. 

■Manufacturers' suggested list prices 
Monitor included with TRS-80 III only Commodore Business 
Machines-RQ Bo* BOOR, Conshohocken, PA 19428, 
Canada-3370 Pharmacy Avenue. AgincouR. Ont.. Can. M1W 2K4. 

Or commodore 

v COMPUTER 



ODORE 64. UNDER $300. 

a^|uy a better computer at twice the price. 



forgets: 


MORE THAN JUST ANOTHER PRETTY FACE. 


Says who? Says ANSI. 

Specifically, subcommittee X3B8 of the American 
National Standards Institute (ANSI) says so. The fact 
is all Elephant™ floppies meet or exceed the specs 
required to meet or exceed all their standards. 

But just who is "subcommittee X3B8" to issue such 
pronouncements? 

They're a group of people representing a large, 
well-balanced cross section of disciplines— from 
academia, government agencies, and the computer 
industry. People from places like IBM, Hewlett-Packard, 
3M, Lawrence Livermore Labs, The U.S. Department 
of Defense, Honeywell and The Association of Com- 
puter Programmers and Analysts. In short, it's a bunch 
of high-caliber nitpickers whose mission, it seems, in 
order to make better disks for consumers, is also to 


make life miserable for everyone in the disk-making 
business. 

How? By gathering together periodically (often, 
one suspects, under the full moon) to concoct more 
and more rules to increase the quality of flexible 
disks. Their most recent rule book runs over 20 single- 
spaced pages— listing, and insisting upon— hundreds 
upon hundreds of standards a disk must meet in 
order to be blessed by ANSI. (And thereby be taken 
. seriously by people who take disks seriously.) 

In fact, if you'd like a copy of this formidable docu- 
ment, for free, just let us know and we'll send you 
one. Because once you know what it takes to make 
an Elephant for ANSI . . . 

We think you'll want us to make some Elephants 
'or you. 
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ELEPHANT. HEAVY DUTY DISKS. 

For a free poster-size portrait of our powerful pachyderm, please write us. 

Distributed Exclusively by Leading Edge Products, Inc., 225 Turnpike Street, Canton, Massachusetts 02021 

Call: toll-free 1-800-343-6833; or in Massachusetts call collect (617) 828-8150. Telex 951-624. 


